CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



,008015, 019026 ,030 ,034041, 045,053* 0570571026 

L068 112, 102 106, 113/ 101099/ 1 99, 027A070028) 027B001027080261, 001/001 113 10 

,008015,022029,036040,047054,061068,072/061039 ,0010011040 



1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 



3711L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


101 


1 


01 


000 


JOB 


1401 AUTOCODER-PASS 1-GENE 


102 


1 


02 




CTL 


630 1 


103 


1 


03 


SYSTP 


EQU 


<U1 


104 


1 


04 


CARD 


EQU 





105 


1 


05 


PRINT 


EQU 


200 


106 


1 


06 




ORG 


87 


107 


1 


07 


XR1 


DCW 


000 


108 


1 


08 




OC 


00 


109 


1 


09 


XR2 


DCW 


000 


110 


1 


10 




OC 


00 


111 


1 


11 


XR3 


DCW 


000 


112 


1 


12 




DC 


000000 


113 


1 


13 


ZONE 


DCW 


2SKB 


114 


1 


14 


ABIT 


EQU 


Z0NE-2 


115 


1 


15 


NOB IT 


EQU 


ZONE-3 


116 


1 


16 


xxxx 


EQU 





117 


1 


17 


* 






118 


1 


18 


» START OF 


MAIN LINE 


119 


1 


19 


* 






120 


1 


20 




ORG 


333 


121 


1 


21 


START 


RWD 


SYSTP 


122 


1 


22 




CC 


1 


123 


1 


23 




MCW 


•GENERATING 1401 AUTOCODER 


124 


1 


24 




W 




125 


1 


25 




CC 


1 


126 


1 


26 




CS 


PRINT+132 




JL 


4 t 








128 


1 


28 




MCW 


CARD+75,SEQN0=4 


129 


1 


29 


* 






130 


1 


30 


» START OF 


NEXT BLOCK 


131 


1 


31 


* 






132 


1 


32 


NXTBK 


R 




133 


1 


33 




c 


CARD+12, 'CONTROL' 


134 


1 


34 




BU 


MACRO 


135 


1 


35 




BWZ 


CKSEQ,CARD+80,2 


136 


1 


36 




BCE 


£0J0B,CARD+78,9 


137 


1 


37 




SW 


CARD+21 


138 


1 


38 




ZA 


CARD+25,HCLD5=5 


139 


1 


39 




CW 


CARD+21 


140 


1 


40 


• 






141 


1 


41 


♦ FLOAT ADDRESS TO FIVE CHARACTERS 


142 


1 


42 


* 






143 


1 


43 


FLOAT 


BCE 


»+5»HQLD5,+ 


144 


1 


44 




B 


C0MP1 


145 


1 


45 




ZA 


H0LD5-1,H0LC5 


146 


1 


46 




B 


FLOAT 


147 


1 


47 


• 







SFX CT LOCN INSTRUCTION TYPE CARD 



SYSTEM TAPE-VERSION 3 



SYSTEM', PRINT+32 





CU1 










0000 










0200 












0087 




3 


0089 








2 


0091 








3 


0094 








2 


0096 








3 


0099 








6 


0105 








4 


0109 
0107 
0106 

0000 












0333 




5 


0333 


U 


(Ul 


R 


2 


0338 


F 


1 




7 


0340 


M 


+83 


232 


1 


0347 


2 






2 


0348 


F 


1 




4 


0350 


/ 


332 








/ 






7 


0355 


M 


075 


♦87 


1 


0362 


1 






7 


0363 


C 


012 


*94 


5 


0370 


B 


792 


/ 


8 


0375 


V 


726 


080 2 


8 


0383 


B 


877 


078 9 


4 


0391 


t 


021 




7 


0395 


♦ 


025 


4=99 


4 


0402 


) 


021 





4 
4 
4 
4 
4 
4 
4 



8 


0406 


B 418 #99 + 


7 


4 


0414 


8 429 


7 


7 


0418 


+ *98 *99 


7 


4 


0425 


8 406 


7 



1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 



3711L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




148 


1 


48 


* 


TEST 


ADDRESS AGAINST HOME ADDRESS 




149 


1 


49 


* 


TO DEVELOP 


INDEX VALUE 




150 


1 


50 


* 










151 


1 


51 


CCPP1 


MZ 


N08IT,H0LD5 




152 


1 


52 






S 


XR1 + 2 




153 


1 


53 






C 


HOLD5,«0150C« 




154 


1 


54 






8E 


DOCOR 




155 


1 


55 






BH 


SUB1 




156 


1 


56 






S 


«01500» ,HGLD5 




157 


1 


57 






MCW 


»16000»,WORK5=5 




158 


1 


58 


SUB2 


s 


HOLDS, W0RK5 




159 


1 


59 


* 










160 


1 


60 


* 


CONVERT INDEX VALUE TO 3 DIGIT MACHINE 


ADDRESS 


161 


1 


61 


• 










162 


1 


62 


CNVRT 


8AV 


* + l 




163 


1 


63 






A 


•96SW0RK5-3 




164 


1 


64 






BAV 


CNVRT+5 




165 


1 


65 






MZ 


W0RK5-4,WCRK5 




166 


1 


66 






MN 


W0RK5-3t*+4 




167 


1 


67 






MZ 


Z0NE,W0RK5-2 




168 


1 


6e 






MCW 


W0RK5,XR1 




169 


1 


69 






B 


DOCOR 




170 


I 


70 


SUB1 


MCW 


•01500SWCRK5 




171 


1 


71 






B 


SUB2 




172 


1 


72 


• 










173 


1 


73 


• 


READ 


CONDENSED CARDS 




174 


1 


74 


* 










175 


1 


75 


OOCOR 


R 






176 


1 


76 






MCW 


»045« ,XR3 




177 


1 


77 






MCW 


•042SXR2 




178 


1 


78 






BWZ 


CKSEQ,CARD+80,2 




* *»*■» 


« 


—t rt 






n fr 


t»T*r»"i f* a n r> *. £. a o 




A f "* 


i 


( V 






OCC 


HI «ritV,HI\UTOO»D 




180 


1 


80 






BCE 


SETWM f CARD+40 t N 




181 


1 


81 






C 


CARD+46, , 001» 




182 


1 


82 






BE 


SETWM 




183 


1 


83 






MZ 


ABIT t CARD+45 




184 


1 


84 


• 










185 


1 


85 


* 


SET 


RETURN 


ADDRESS 




186 


1 


86 


* 










187 


1 


87 


SETWM 


MCW 


+D0C0R,CARD*71 




188 


1 


88 






MCW 


•B» 




189 


1 


89 


• 










190 


1 


90 


« 


INDEX WORD 


MARK ADDRESSES 




191 


1 


91 


« 










192 


1 


92 


CCMP2 


C 


XR2,«063« 




193 


1 


93 






BE 


CARD+40 




194 


1 


94 






A 


+7*XR3 




195 


1 


95 






A 


+7tXR2 




196 


1 


96 






C 


CARD+1+X2,«040' 




197 


1 


97 






BE 


*+8 





SFX CT LOCN INSTRUCTION TYPE CARD 



7 


0429 


Y 


106 


*99 


4 


0436 


S 


091 




7 


0440 


c 


*99 


/04 


5 


0447 


B 


538 


S 


5 


0452 


B 


527 


U 


7 


0457 


S 


/09 


*99 


7 


0464 


¥ 


/14 


/19 


7 


0471 


S 


*99 


/19 



5 


0478 


B 


483 


I 


7 


0483 


A 


/21 


/16 


5 


0490 


B 


483 


Z 


7 


0495 


Y 


/15 


/19 


7 


0502 


D 


/16 


512 


7 


0509 


Y 


109 


/17 


7 


0516 


M 


/19 


089 


4 


0523 


B 


538 




7 


0527 


M 


/26 


/19 


4 


0534 


B 


471 





7 0596 
4 0603 



M /38 071 
M /39 



7 


0607 


C 


094 


/42 


5 


0614 


B 


040 


S 


7 


0619 


A 


/43 


099 


7 


0626 


A 


/43 


094 


7 


0633 


C 


0-1 


/46 


5 


0640 


B 


652 


S 



9 

9 

9 

9 

10 

10 

10 

10 

10 

10 



1 


0538 


1 








10 


7 


0539 


M 


/29 


099 




11 


7 


0546 


M 


/32 


094 




11 


8 


0553 


V 


726 


080 


2 


11 


a 


ntz&. i 

V/ J \J X. 




V» 1 J 


068 




11 


8 


0569 


B 


596 


040 


N 


11 


7 


0577 


C 


046 


/35 




12 


5 


0584 


B 


596 


S 




12 


7 


0589 


Y 


107 


045 




12 



12 
12 



12 
13 
13 
13 
13 
13 



1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 



37111- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


198 


1 


98 






MZ 


ABIT,CARD+X2 


199 


1 


99 






C 


CAR0+l+X3♦ t 040 , 


200 


2 


00 






BE 


C0MP2 


201 


2 


01 






MZ 


A8IT,CARD+X3 


202 


2 


02 






B 


C0MP2 


203 


2 


03 


* 








204 


2 


04 


• 


WRITE CORE 


ON TAPE 


205 


2 


05 


* 








206 


2 


06 


WTAP1 


LCA 


' ',3998 


207 


2 


07 






WTW 


SYSTP.150G 


208 


2 


08 






BER 


WTERR 


209 


2 


09 


* 








210 


2 


10 


* 


CLEAR INPUT AREA 


211 


2 


11 


• 








212 


2 


12 






MCW 


•I99 f ,CLEAR+3 


213 


2 


13 


CLEAR 


CS 


XXXX 


214 


2 


14 






SBR 


CLEAR+3 


215 


2 


15 






C 


CLEAR+3, , L99» 


216 


2 


16 






BU 


CLEAR 


217 


2 


17 






B 


NXTBK 


218 


2 


18 


* 








219 


2 


19 


» 


CHECK CARD 


SEQUENCE 


220 


2 


20 


* 








221 


2 


21 


CKSEO 


SBR 


SEQXT+3 


222 


2 


22 






A 


+1,SEQN0 


223 


2 


23 






C 


CARD+75,SEQNO 


224 


2 


24 






MCW 


CARD+75 t SEQN0 


225 


2 


25 






BU 


SEQER 


226 


2 


26 


SEQXT 


B 


XXXX 


227 


2 


27 


* 








228 


2 


28 


* 


CARD 


SEQUENCE ERROR 


229 


2 


5Q 


* 








230 


2 


30 


SEOER 


MCW 


CARD+80,PRINT+80 


231 


2 


31 






CHAIN 


6 


232 










MCW 




233 










MCW 




234 










MCW 




235 










MCW 




236 










MCW 




237 










MCW 




238 


2 


32 






MCW 


•SEQUENCE ERROR* 


239 


2 


33 






W 




240 


2 


34 






H 


0,176 


241 


2 


35 






B 


DOSEQ 


242 


2 


36 


* 








243 


2 


37 


* 


PROCESS MACRO LIBRARY 


244 


2 


38 


* 








245 


2 


39 


MACRO 


NOP 


CRDER 


246 


2 


40 






C 


CARD+20, , HEADR I 


247 


2 


41 






BU 


CRDER 



SFX 


CT 


LOCN 


INSTRl 


JCTI 




7 


0645 


Y 107 


0-0 




7 


0652 


C 0+1 


/46 




5 


0659 


B 607 


$ ~ ; 




7 


0664 


Y 107 


0+0 




4 


0671 


B 607 





4 


0726 


H 


759 




7 


0730 


A 


/54 


♦ 87 


7 


0737 


C 


075 


*87 


7 


0744 


M 


075 


#87 


5 


0751 


B 


760 


/ 


4 


0756 


B 


000 





13 
14 
14 
14 
14 



7 


0675 


L 


/47 


198 


14 


8 


0682 


L 


iUl 


VOO W 


14 


5 


0690 


B 


973 


L 


15 


7 


0695 


M 


/50 


705 


15 


4 


0702 


/ 


000 




15 


4 


0706 


H 


705 




15 


7 


0710 


C 


705 


/53 


15 


5 


0717 


B 


702 


/ 


15 


4 


0722 


B 


362 




15 



16 
16 
16 
16 
16 
16 



7 


0760 


M 


080 


280 


MACRO 


17 


1 


0767 


M 






GEN 


17 


1 


0768 


M 






GEN 


17 


1 


0769 


M 






GEN 


17 


1 


0770 


M 






bt JM 


17 


1 


0771 


M 






GEN 


17 


1 


0772 


M 






GEN 


17 


7 


0773 


M 


/68 


298 




18 


1 


0780 


2 








18 


7 


0781 


• 


000 


176 




18 


4 


0788 


B 


941 






18 



4 0792 
7 0796 

5 0803 



N 917 

C 020 /73 

B 917 / 



18 
18 

18 



1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 



3711L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


248 


2 


42 




BwZ 


CKSEQ,CAR0+80»2 


249 


2 


43 




MCW 


•BS MACRO 


250 


2 


44 




LCA 


* SCARD+81 


251 


2 


45 


« 






252 


2 


46 


♦ WRITE SKELETON INSTRUCTIONS GN TAPE 


253 


2 


47 


* 






254 


2 


48 


WTAP2 


WT 


SYSTP f CARD+l 


255 


2 


49 




BER 


WTERR 


256 


2 


50 




C 


CARD+ll, f 999999 , 


257 


2 


51 




BE 


WTTM 


258 


2 


52 




R 




259 


2 


53 




BWZ 


CKSEQ.CARO+80,2 


260 


2 


54 




B 


WTAP2 


261 


2 


55 


WTTM 


WTM 


SYSTP 


262 


2 


56 




B 


NXTBK 


263 


2 


57 


* 






264 


2 


58 


* END 


OF GENERATION 


265 


2 


59 


* 






266 


2 


60 


E0J08 


WTM 


SYSTP 


267 


2 


61 




RWD 


SYSTP 


268 


2 


62 




CW 


• t 


269 


2 


63 




CS 


PRINT+132 


270 


2 


64 




CS 




271 


2 


65 




MCW 


U401 AUTOCODER SYSTEM GENERATED 


272 


2 


66 




w 




273 


2 


67 




cc 


1 


274 


2 


68 


* 






275 


2 


69 


* FINAL HALT 




276 


2 


70 


* 






277 


2 


71 


HALT 


H 


0,142 


278 


2 


72 




B 


HALT 






-7 -a 

f J 


* 






280 


2 


74 


* MISSING CONTROL CARD 


281 


2 


75 


* 






282 


2 


76 


CRDER 


CS 


PRINT+132 


283 


2 


77 




CS 




284 


2 


78 




MCW 


•SYSTEM CCNTROL CARD MISSING«,PR 


285 


2 


79 




W 




286 


2 


80 


HALT2 


H 


0,177 


287 


2 


81 




B 


HALT2 


288 


2 


82 


• 






289 


2 


83 


* AFTER SEQUENCE ERROR, CHECK BALANCE OF DECK 


290 


2 


84 


# 






291 


2 


85 


DOSEQ 


R 




292 


2 


86 




BWZ 


CKSEQ,CARD+80,2 


293 


2 


87 




BCE 


ENDSQ»CARC+78,9 


294 


2 


88 




B 


DOSEQ 


295 


2 


89 


ENDSQ 


H 


0,152 


296 


2 


90 




B 


ENDSQ 


297 


2 


91 


• 







SFX CT LOCN INSTRUCTION TYPE CARD 



8 


0808 


V 726 080 2 


19 


7 


0816 


M /39 792 


19 


7 


0823 


L /47 081 


19 



8 


0830 


M IU1 001 W 


19 


5 


0838 


B 973 L 


19 


7 


0843 


C Oil /79 


20 


5 


0850 


B 868 S 


20 


1 


0855 


1 


20 


8 


0856 


V 726 080 2 


20 


4 


0864 


B 830 


20 


5 


0868 


U <U1 M 


20 


4 


0873 


8 362 


20 



5 


0877 


U 


IU1 


M 


5 


0882 


U 


(Ul 


R 


4 


0887 


} 


/47 




4 


0891 


/ 


332 




1 


0895 


/ 






7 


0896 


M 


S25 


246 


1 


0903 


2 






2 


0904 


F 


1 





7 0906 
4 0913 



. 000 142 
B 906 



21 
21 
21 
21 
21 
21 
21 
22 



22 
22 



4 


0917 


/ 332 


22 


1 


0921 


/ 


22 


7 


0922 


M S52 227 


22 


1 


0929 


2 


22 


7 


0930 


. 000 177 


23 


4 


0937 


B 930 


23 



1 


0941 


1 




23 


8 


0942 


V 726 


080 2 


23 


8 


0950 


B 962 


078 9 


23 


4 


0958 


B 941 




23 


7 


0962 


* 000 


152 


23 


4 


0969 


B 962 




24 



1401 AUTOCODER-PASS 1-GENERATE SYSTEM TAPE-VERSION 3 



3711L 



PAGE 



SEG 


PG 


LIN 


LABEL 


OP 


OPERANDS 


298 


2 


92 


* WRITE REDL 


NDANCY ROUTINE 


299 


2 


93 


* 






300 


2 


94 


WTERR 


SBR 


WTXT+3 


301 


2 


95 




SBR 


XR3 


302 


2 


96 




HZ 


+9,XR3 


303 


2 


97 




MCW 


4000-6+X3,RETRY+7 


304 


2 


98 


BSP 


BSP 


SYSTP 


305 


2 


99 




SKP 


SYSTP 


306 


3 


00 




BCE 


SUBCT»WTCT~1,1 


307 


3 


01 




A 


+1,WTCT=2 


308 


3 


02 


RETRY 


WT 


SYSTP, XXXX 


309 


3 


03 




BER 


BSP 


310 


3 


04 


WTXT 


B 


XXXX 


311 


3 


05 


SU8CT 


S 


WTCT 


312 


3 


06 




H 


0,161 


313 


3 


07 




B 


RETRY 






123 




OCW 


•GENERATING 1401 AUTOCODER SYSTEM 






128 


SEQNO 




=04 






133 






•CONTROL* 






138 


H0L05 




=05 






153 






•01500* 






156 






•01500* 






157 






•16000* 






157 


WORKS 




=05 
•96» 






170 






•01500* 

*045« 

»042» 

•001« 






187 






+DOCOR 

»B» 

V V» ar* 






















+ 7 












•040« 
t t 












•199* 












•U99' 












+ 1 






238 






•SEQUENCE ERROR* 






246 






•HEADR* 






256 






•999999* 






271 






•1401 AUTCCCDER SYSTEM GENERATED 






284 






•SYSTEM CONTROL CARD MISSING* 
+9 






307 


WTCT 




=02 


314 


3 


08 




EX 


START 



SFX CT LOCN INSTRUCTION TYPE CARD 



TAPE UNIT 1* 



4 


0973 


H 


♦ 36 




4 


0977 


H 


099 




7 


0981 


Y 


S53 


099 


7 


0988 


M 


114 


#27 


5 


0995 


U 


<U1 


B 


5 


1000 


U 


<U1 


E 


8 


1005 


B 


*37 


S54 1 


7 


1013 


A 


/54 


S55 


8 


1020 


M 


(Ul 


000 w 


5 


1028 


B 


995 


L 


4 


1033 


B 


000 




4 


1037 


S 


S55 




7 


1041 


• 


000 


161 


4 


1048 


B 


*20 




32 


1083 








4 


1087 








7 


1094 








5 


1099 








5 


1104 








5 


1109 








5 


1114 








5 


1119 








2 


1121 








5 


1126 








3 


1129 








3 


1132 








3 


1135 








3 


1138 


538 




1 


1139 








•a 


1 1 A *5 
M. JLTC 








I 


1143 








3 


1146 








1 


1147 








3 


1150 








3 


1153 








1 


1154 








14 


1168 








5 


1173 








6 


1179 








46 


1225 








27 


1252 








1 


1253 








2 


1255 









B 333 





24 




24 




24 




24 




24 




24 




25 




25 




25 




25 




25 




25 




26 




26 


LIT 


27 


AREA 


27 


LIT 


28 


AREA 


28 


LIT 


28 


LIT 


28 


LIT 


28 


AREA 


28 


LIT 


28 


LIT 


29 


LIT 


29 


LIT 


29 


LIT 


29 


ADCON 


29 


LIT 


29 


1 T T 


*>*•» 


t~ I 1 


C ~J 


LIT 


30 


LIT 


30 


LIT 


30 


LIT 


30 


LIT 


30 


LIT 


30 


LIT 


30 


LIT 


31 


LIT 


31 


LIT 


33 


LIT 


33 


LIT 


33 


AREA 


33 




34 



1401 AUTOCOCER-PASS 1 SELECT PROGRAM 



-VERSION 3 



3712L 



PAGE 



SEQ PG LIN LABEL OP 



OPERANDS 



SFX CT LOCN INSTRUCTION TYPE CARD 



315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 



09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



PASSA 
DOPSA 
SYSTP 



JOS 
SFX 

EQU 
ECU 

EQU 



1401 

8 

1650 

1900 

(Ul 



AUTOCOCER-PASS 1 SELECT PROGRAM 



-VERSION 3 



* BRANCH FROM TAPE LOAD BUTTON 



ORG 

B 

H 
LOAOD DCW 

ORG 
XR1 DCW 

DC 

DCW 

DC 

DCW 

DC 

* BEGIN PROGR 

* 

ORG 333 

8ER HALT1 

SW GMRK1 

CLEAR CS 3999 

SBR CLEAR+3 

C CLEAR+3,»U99» 

BU CLEAR 
* 

* GET PAST LIBRARY 



1 
333 

*~3 

»599» 

87 

000 

00 

000 

00 

000 

00 

AM 



L0GP1 SW 

RT 

C 

BU 

SW 

RT 

BEF 

B 
* 

* REDUNDANCY 
* 

HALT1 H 
B 
TSTSS BSS 
* 

* RETRIEVE PA 

SW 



GMRK1 

SYSTP, GMRK1-21 

GMRKl-2,*999999 

L00P1 

GMRK1 

SYSTP*GMRK1-1 

TSTSS 

L00P1 

ON TAPE LOAD 



0,199 

HALT1 
LIBRN.F 

SS 2 FOR ASSEMBLY RUN 

GMRK1 



HEADR 



B 1650 
8 1900 
8 IU1 



B 






0001 


B 


4 


0001 


B 333 


B 


4 


0005 


. 005 


B 


3 


0011 




B 






0087 


B 


3 


0089 




B 


2 


0091 




B 


3 


0094 




B 


2 


0096 




B 


3 


0099 




B 


2 


0101 





37 
37 
37 

38 
38 
38 
38 
38 
38 



B 






0333 






& 


5 


0333 


8 


407 


L 


39 


8 


4 


0338 


t 


835 




39 


8 


4 


0342 


/ 


199 




39 


8 


4 


0346 


H 


345 




39 


B 


7 


0350 


C 


345 


787 


39 


B 


5 


0357 


B 


342 


/ 


39 


B 


4 


0362 


t 


835 




39 


B 


8 


0366 


M 


<U1 


814 R 


40 


B 


7 


0374 


C 


833 


802 


40 


B 


5 


0381 


B 


362 


/ 


40 


8 


4 


0386 


t 


835 




40 


B 


C* 


0390 


M 


(Ul 


834 R 


40 


B 


5 


0398 


B 


418 


K 


40 


B 


4 


0403 


B 


362 




41 



B 


7 


0407 


. 000 199 


41 


B 


4 


0414 


B 407 


41 


B 


5 


0418 


B 521 F 


41 



4 0423 , 835 



41 



1401 AUTOCODER-PASS 1 SELECT PROGRAM 



-VERSION 3 



3712L 



PAGE 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


365 


3 59 






LCA 


GMRK1,3998 


366 


3 60 






MCW 


+PASSA+13.N0IS2+6 


36? 


3 61 


* 








368 


3 62 


* 


GET 


PAST 


LIBRARIAN 


369 


3 63 


* 








370 


3 64 


LOOP 2 


8CE 


LDPSA*BYCT»4 


371 


3 65 






SW 


3998 


372 


3 66 






RTW 


SYSTP,PASSA 


373 


3 67 






B 


NOISE 


374 


3 68 






A 


+1,BYCT=1 


375 


3 69 






B 


L00P2 


376 


3 70 


♦ 








377 


3 71 


* 


PASS 


2 FOUND 


378 


3 72 


* 








379 


3 73 


LDPSA 


RTW 


SYSTP,PASSA 


380 


3 74 






B 


NOISE 


381 


3 75 






BER 


RDERR 


382 


3 76 






v# wi 


GMRK1 


383 


3 77 


CLR 


CS 


PASSA-1 


384 


3 78 






SBR 


CLR+3 


385 


3 79 






C 


CLR+3,L0ADD 


386 


3 80 






BU 


CLR 


387 


3 81 






B 


DOPSA 


388 


3 82 


* 








389 


3 83 


* 


LIBRARY RUN 


390 


3 84 


* 








391 


3 85 


LIBRN 


MCW 


•-13SN0IS2+6 


392 


3 86 






CW 


GMRK1 


393 


3 87 






BSS 


OUTPT, B 


394 


3 88 


» 








395 


3 89 


* 


RETRIEVE 


UPDATE PROGRAM 


396 


3 90 


a 








397 


3 91 






RTW 


SYSTP,2000 


398 


3 92 






B 


NOISE 


399 


3 93 






BER 


RDERR 


400 


3 94 






8 


2000 


401 


3 95 


» 








402 


3 96 


* 


RETRIEVE 


OUTPUT PROGRAM 


403 


3 97 


• 








404 


3 98 


OUTPT 


RTW 


SYSTP,2000 


405 


3 99 






B 


NOISE 


406 


4 00 






SW 


GMRK1 


407 


4 01 






LCA 


GMRK1,3998 


408 


4 02 






RTW 


SYSTP,2000 


409 


4 03 






B 


NOISE 


410 


4 04 






RTW 


SYSTP,2000 


411 


4 05 






B 


NOISE 


412 


4 06 






SW 


3998 


413 


4 07 






RTW 


SYSTP,2000 


414 


4 08 






B 


NOISE 



SFX CT LOCN INSTRUCTION TYPE CARD 



0427 
0434 



L 835 198 

M 805 658 



B 


8 


0537 


L Oil -00 


B 


4 


0545 


B 637 


B 


5 


0549 


B 676 L 


B 


4 


0554 


B -00 



R 



41 
41 



B 


8 


0441 


B 476 807 4 


42 


8 


4 


0449 


, 198 


42 


B 


8 


0453 


L (Ul W50 R 


42 


B 


4 


0461 


B 637 


42 


B 


7 


0465 


A 806 807 


42 


B 


4 


0472 


B 441 


42 



B 


8 


0476 


L CU1 W50 R 


43 


B 


4 


0484 


8 637 


43 


B 


5 


0488 


B 676 L 


43 


B 


4 


0493 


3 835 


43 


B 


4 


0497 


/ W49 


43 


B 


4 


0501 


H 500 


43 


B 


7 


0505 


C 500 Oil 


43 


B 


5 


0512 


B 497 / 


44 


B 


4 


0517 


B ZOO 


44 



B 


7 


0521 


M 810 658 


44 


B 


4 


0528 


) 835 


44 


B 


5 


0532 


B 558 B 


44 



44 
44 
45 
45 



B 


8 


0558 


L 


IU1 


-00 


R 


45 


B 


4 


0566 


B 


637 






45 


B 


4 


0570 


t 


835 






45 


B 


7 


0574 


L 


835 


198 




45 


B 


8 


0581 


L 


(Ul 


-00 


R 


46 


B 


4 


0589 


B 


637 






46 


8 


8 


0593 


L 


CU1 


-00 


R 


46 


B 


4 


0601 


B 


637 






46 


B 


4 


0605 


t 


198 






46 


B 


8 


0609 


L 


(Ul 


-00 


R 


46 


B 


4 


0617 


B 


637 






47 



1401 AUTOCODER-PASS 1 SELECT PROGRAM 



-VERSION 3 



3712L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


415 


4 


09 




BER 


RDERR 


416 


4 


10 




CW 


GMRK1,3998 


417 


4 


11 




8 


2000 


418 


4 


12 


* 






419 


4 


13 


* TEST 


FOR NOISE RECORDS 


420 


4 


14 


# 






421 


4 


15 


NOISE 


S8R 


NOSXT+3 


422 


4 


16 




SBR 


XR1 


423 


4 


17 




MZ 


+9,XR1 


424 


4 


18 


N0IS2 


BCE 


4000-12+X1.0, 


425 


4 


19 




CHAIN 


12 


426 








8CE 




427 








BCE 




428 








BCE 




429 








BCE 




430 








BCE 




431 








BCE 




432 








BCE 




433 








BCE 




434 








BCE 




435 








BCE 




436 








BCE 




437 








BCE 




438 


4 


20 


N0SXT 


B 





439 


4 


21 


» 






440 


4 


22 


* READ 


REDUNDANCY ROUTINE 


441 


4 


23 


* 






442 


4 


24 


RDERR 


SBR 


XR1 


443 


4 


25 




SBR 


RDXT+3 


444 


4 


26 




M2 


+9,XR1 


445 


4 


27 




MCW 


4000-10+Xl,RDTRY+7 


AAA 


z. 


OQ 


OCD 


OCD 


CVCTO 


TTU 


T 


f- «j 


\j «*r 


ij -jr 


*j * «j i r 


447 


4 


29 




MCW 


+9,RDCT=1 


448 


4 


30 


ROTRY 


RTW 


SYSTP,0 


449 


4 


31 




BER 


♦+5 


450 


4 


32 


RDXT 


B 





451 


4 


33 




BSP 


SYSTP 


452 


4 


34 




S 


+1,RDCT 


453 


4 


35 




8WZ 


RDTRY,RDCT,8 


454 


4 


36 




H 


0,191 


455 


4 


37 




MCW 


RDTRY+7,»+8 


456 


4 


38 




RTW 


SYSTP, 


457 


4 


39 




BSS 


BSP,E 


458 


4 


40 




H 


0,111 


459 


4 


41 




B 


RDXT 


460 


4 


42 

349 
366 




LTORG 
DCW 


* 

*U99» 

•999999 HE ADR • 

+PASSA+13 

+ 1 



SFX CT LOCN INSTRUCTION TYPE CARD 



47 
47 
47 



B 


5 


0621 


8 676 L 


B 


7 


0626 


) 835 198 


8 


4 


0633 


B -00 



B 


4 


0637 


H 


675 




47 


B 


4 


0641 


H 


089 




47 


8 


7 


0645 


Y 


811 089 




47 


B 


8 


0652 


B 


IY8 000 


MACRO 


48 


B 


1 


0660 


B 




GEN 


48 


B 


1 


0661 


8 




GEN 


48 


B 


1 


0662 


B 




GEN 


48 


B 


1 


0663 


B 




GEN 


48 


B 


1 


0664 


B 




GEN 


48 


B 


1 


0665 


B 




GEN 


48 


B 


1 


0666 


B 




GEN 


49 


B 


1 


0667 


8 




GEN 


49 


B 


1 


0668 


B 




GEN 


49 


B 


1 


0669 


8 




GEN 


49 


B 


1 


0670 


B 




GEN 


49 


B 


1 


0671 


B 




GEN 


49 


B 


4 


0672 


B 


000 




49 



B 


4 


0676 


H 


089 






50 


B 


4 


0680 


H 


726 






50 


B 


7 


0684 


Y 


811 


089 




50 


B 


7 


0691 


« 


120 


717 




50 






ntoo 


ii 


1 1 it 


Q 




en 


B 


7 


0703 


M 


811 


812 




50 


B 


8 


0710 


L 


{Ul 


000 R 




51 


B 


5 


0718 


B 


727 


L 




51 


B 


4 


0723 


B 


000 






51 


B 


5 


0727 


U 


(Ul 


B 




51 


B 


7 


0732 


S 


806 


812 




51 


B 


8 


0739 


V 


710 


812 B 




51 


B 


7 


0747 


* 


000 


191 




52 


8 


7 


0754 


M 


717 


768 




52 


B 


8 


0761 


L 


(Ul 


000 R 




52 


B 


5 


0769 


B 


698 


E 




52 


B 


7 


0774 


• 


000 


111 




52 


8 


4 


0781 


B 


723 






52 


B 






0785 








B 


3 


0787 








LIT 


53 


B 


15 


0802 








LIT 


53 


B 


3 


0805 


W63 




ADCON 


53 


B 


1 


0806 








LIT 


53 



1401 AUTOCODER-PASS 1 SELECT PROGRAM 



•VERSION 3 



3712L 



PAGE 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 




374 


BYCT 




=01 

»-13« 

+9 




447 


RDCT 




=01 


461 


4 43 




ocw 


= 22 


462 


4 44 


GMRK1 


DCW 


• t 


463 


4 45 




EX 






FX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


B 


1 


0807 


AREA 


53 


8 


3 


0810 


LIT 


53 


B 


1 


0811 


LIT 


53 


B 


1 


0812 


AREA 


54 


B 


22 


0834 




54 


8 


1 


0835 




54 



B 000 



55 



1401 AUTOCODER-PASS 1 RETRIEVE UPDATE 



-VERSION 3 



3713L 



PAGE 



10 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


464 


4 


46 




JOB 


1401 AUTOCOC 


465 


4 


47 




SFX 


R 


466 


4 


48 


SYSTP 


EQU 


(Ul 


467 


4 


49 


LTAPSW 


EQU 


2725 


468 


4 


50 




ORG 


2000 


469 


4 


51 




BSS 


LIST,G 


470 


4 


52 




cw 


ENDRT 


471 


4 


53 


START 


RTW 


SYSTP, 1 


472 


4 


54 




BCE 


START, 013, 


473 


4 


55 




CHAIN 


12 


474 








BCE 




475 








BCE 




476 








BCE 




477 








BCE 




478 








BCE 




479 








BCE 




480 








BCE 




481 








BCE 




482 








BCE 




483 








BCE 




484 








BCE 




485 








BCE 




486 


4 


56 




BER 


RDERR 


487 


4 


57 




B 


333 


488 


4 


58 


RDERR 


8SP 


SYSTP 


489 


4 


59 




MCW 


♦9,RDCT^1 


490 


4 


60 


RDTRY 


RTW 


SYSTP, 1 


491 


4 


61 




BER 


*+5 


492 


4 


62 




B 


333 


493 


4 


63 




BSP 


SYSTP 


494 


4 


64 




S 


+1»RDCT 


495 


4 


65 




8WZ 


•"> »"» ■ «■» r» w rk *% *~ -r r» 

*Wi IS I fRUl, I f O 


496 


4 


66 




H 


0,191 


497 


4 


67 


AGAIN 


RTW 


SYSTP, 1 


498 


4 


68 




BSS 


RDERR, E 


499 


4 


69 




H 


0,111 


500 


4 


70 




B 


333 


501 


4 


71 


LIST 


SW 


ENDRT 


502 


4 


72 




LCA 


ENDRT, 1998 


503 


4 


73 




RTW 


SYSTP, 333 


504 


4 


74 




BEF 


GET 


505 


4 


75 




B 


LIST 


506 


4 


76 


GET 


BSP 


SYSTP 


507 


4 


77 




BSP 


SYSTP 


508 


4 


78 




CW 


ENDRT, 1998 


509 


4 


79 




SW 


LTAPSW 


510 


4 


80 




MCW 


•333»,RDTRY+ 


511 


4 


81 




MCW 


*333* , AGAIN* 


512 


4 


82 




RTW 


SYSTP, 333 


513 


4 


83 




BER 


RDERR 



SFX CT LOCN INSTRUCTION TYPE CARD 



ETRIEVE UPDATE 


-VERSION 3 

R 
R 




(Ul 
2725 
















R 






2000 












R 


5 


2000 


B 


J26 


G 






58 




R 


4 


2005 


) 


K12 








58 




R 


8 


2009 


L 


CU1 


001 


R 




58 




R 


8 


2017 


B 


-09 


013 




MACRO 


58 




R 


1 


2025 


8 








GEN 


58 




R 


1 


2026 


B 








GEN 


58 




R 


1 


2027 


B 








GEN 


58 




R 


1 


2028 


B 








GEN 


59 




R 


1 


2029 


B 








GEN 


59 




R 


1 


2030 


B 








GEN 


59 




R 


1 


2031 


8 








GEN 


59 




R 


1 


2032 


B 








GEN 


59 




R 


1 


2033 


B 








GEN 


59 




R 


1 


2034 


B 








GEN 


59 




R 


1 


2035 


B 








GEN 


60 




R 


1 


2036 


B 








GEN 


60 




R 


5 


2037 


B 


-46 


L 






60 




R 


4 


2042 


8 


333 








60 




R 


5 


2046 


U 


(Ul 


B 






60 




R 


7 


2051 


M 


K06 


K07 






60 




R 


8 


2058 


L 


(Ul 


001 


R 




60 




R 


5 


2066 


B 


-75 


L 






61 




R 


4 


2071 


B 


333 








61 




R 


5 


2075 


U 


(Ul 


B 






61 




R 


7 


2080 


S 


K08 


K07 






61 




D 


Q 
*-> 


4.WU I 


w 




K07 


*-* 




61 




R 


7 


2095 


m 


000 


191 






61 




R 


8 


2102 


L 


(Ul 


001 


R 




62 




R 


5 


2110 


8 


-46 


E 






62 




R 


7 


2115 


• 


000 


111 






62 




R 


4 


2122 


B 


333 








62 




R 


4 


2126 


i 


K12 








62 




R 


7 


2130 


L 


K12 


Z98 






62 




R 


8 


2137 


L 


(Ul 


333 


R 




63 




R 


5 


2145 


B 


J54 


K 






63 




R 


4 


2150 


B 


J26 








63 




R 


5 


2154 


U 


(Ul 


B 






63 




R 


5 


2159 


U 


(Ul 


B 






63 




R 


7 


2164 


) 


K12 


298 






63 




R 


4 


2171 


t 


P25 








63 




R 


7 


2175 


M 


Kll 


-64 






64 




R 


7 


2182 


M 


Kll 


J08 






64 




R 


8 


2189 


L 


(Ul 


333 


R 




64 




R 


5 


2197 


B 


-46 


L 






64 



1401 AUTOCODER-PASS 1 RETRIEVE UPDATE 



-VERSION 3 



3713L 



PAGE 11 



SEQ PG LIN LABEL OP 



OPERANDS 



SEX CT LOCN INSTRUCTION TYPE CARD 



514 4 84 8 333 

515 4 85 LTORG * 

DCW +9 
489 RDCT =01 

+ 1 
• 333 * 

516 4 86 ENDRT DCW • • 

517 4 87 EX 



R 


4 


2202 


8 333 


R 






2206 


R 


1 


2206 




R 


1 


2207 




R 


1 


2208 




R 


3 


2211 




R 


1 


2212 




R 






8 000 



64 



LIT 


64 


AREA 


64 


LIT 


65 


LIT 


65 




65 




66 



1401 AUTGCGCER-PASS 1 COPY SYSTEM TAPE 



-VERSION 3 



37141 



PAGE 12 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


518 


4 


88 




JOB 


1401 AUTOCODER-? 


519 


4 


89 




SFX 


U 


520 


4 


90 




ORG 


87 


521 


4 


91 


XR1 


DCW 


000 


522 


4 


92 




DC 


00 


523 


4 


93 


XR2 


DCW 


000 


524 


4 


94 




OC 


00 


525 


4 


95 


XR3 


ocy 


000 


526 


4 


96 




OC 


00 


527 


4 


97 


SYSTP 


EQU 


(Ul 


528 


4 


98 


OUTAP 


EQU 


(U6 


529 


4 


99 


INPUT 


ECU 


1500 


530 


5 


00 


* 






531 


5 


01 


* BEGIN PROGRAM 


532 


5 


02 


* 






533 


5 


03 




ORG 


333 


534 


5 


04 




SU 


ENDUP 


535 


5 


05 




RWD 


SYSTP 


536 


5 


06 




RWD 


OUTAP 


537 


5 


07 




CC 


1 


538 


5 


08 




CS 


332 


539 


5 


09 




CS 




540 


5 


10 




B 


CLEAR 


541 


5 


11 




BSS 


COPY,C 


542 


5 


12 


* 






543 


5 


13 


* RETRIEVE 


UPDATE PROGRAM 


544 


5 


14 


• 






545 


5 


15 




RTW 


SYSTP, INPUT 


546 


5 


16 




S8R 


XR1 


547 


5 


17 




MN 


O+Xl 


548 


5 


18 




SH 






3 


A"? 






• wAnrtA a 


550 


5 


20 




B 


NOISE 


551 


5 


21 




BER 


RDERR 


552 


5 


22 




WTW 


OUTAP, INPUT 


553 


5 


23 




BER 


WTERR 


554 


5 


24 




B 


CLEAR 


555 


5 


25 


BYPSS 


K 1 W 


SYSTP, INPUT 


556 


5 


26 




C 


INPUT+19, '999999 


557 


5 


27 




BU 


BYPSS 


558 


5 


28 




RTW 


SYSTP, INPUT 


559 


5 


29 




BEF 


GETUP 


560 


5 


30 




B 


BYPSS 


561 


5 


31 


GETUP 


8CE 


LDUPD,BYCT,3 


562 


5 


32 




RTW 


SYSTP, INPUT 


563 


5 


33 




DCW 


•NOOOOOOOCOOOOO' 


564 


5 


34 




B 


NOISE 


565 


5 


35 




BER 


RDERR 


566 


5 


36 




A 


+1,BYCT=1 


567 


5 


37 




B 


GETUP 



SFX CT LOCN INSTRUCTION TYPE CARD 



HEADR 



VERSION 3 






U 






u 


3 


0089 


u 


2 


0091 


u 


3 


0094 


u 


2 


0096 


u 


3 


0099 


u 


2 


0101 


u 




(Ul 


u 




(U6 


u 




1500 



0087 



u 






0333 




u 


4 


0333 


, /39 




u 


5 


0337 


U (Ul 


R 


u 


5 


0342 


U (U6 


R 


u 


2 


0347 


F 1 




u 


4 


0349 


/ 332 




u 


1 


0353 


/ 




u 


4 


0354 


B *21 




u 


5 


0358 


B 525 


C 



69 
69 
69 
69 
69 
69 



70 
70 
70 
70 
70 
70 
70 
71 



u 


8 


0363 


L 


(Ul 


VOO 


R 


71 


u 


4 


0371 


H 


089 






71 


u 


4 


0375 


D 


0*0 






71 


u 


1 


0379 


t 








71 


i I 

u 














* A 


u 


4 


0385 


B 


759 






71 


u 


5 


0389 


8 


798 


L 




72 


u 


8 


0394 


L 


<U6 


VOO 


W 


72 


u 


5 


0402 


B 


928 


L 




72 


u 


4 


0407 


8 


4=21 






72 


u 


8 


0411 


L 


(Ul 


VOO 


R 


72 


u 


7 


0419 


C 


V19 


4=70 




72 


u 


5 


0426 


B 


411 


/ 




73 


u 


8 


0431 


L 


(Ul 


VOO 


R 


73 


u 


5 


0439 


B 


448 


K 




73 


u 


4 


0444 


B 


411 






73 


u 


8 


0448 


B 


498 


*72 


3 


73 


u 


8 


0456 


L 


(Ul 


VOO 


R 


73 


u 


14 


0477 










74 


u 


4 


0478 


B 


759 






74 


u 


5 


0482 


B 


798 


L 




74 


u 


7 


0487 


A 


*71 


4=72 




74 


u 


4 


0494 


B 


448 






74 
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SEQ 


P& 


LIN 


LABEL 


OP 


OPERANDS 


568 


5 


38 


LDUPD 


CS 


199 


569 


5 


39 




CS 


80 


570 


5 


40 




sw 


6,16 


571 


5 


41 




sw 


21 


572 


5 


42 




8 


HEAD 


573 


5 


43 




B 


BEGIN 


574 


5 


44 


* 






575 


5 


45 


* COPY 


SYSTEM 


576 


5 


46 


* 






577 


5 


47 


COPY 


RTW 


SYSTP, INPUT 


578 


5 


48 




SBR 


XR1 


579 


5 


49 




MN 


O+Xl 


580 


5 


50 




SW 




581 


5 


51 




BEF 


EOF 


582 


5 


52 




B 


NOISE 


583 


5 


53 




BER 


RDERR 


584 


5 


54 


• 






585 


5 


55 


* TEST 


END OF LIBRARY 


586 


5 


56 


* 






587 


5 


57 


SWICH 


NOP 


WTAP1 


588 


5 


58 




SW 


LIBSW 


589 


5 


59 




c 


INPUT*10,»999999« 


590 


5 


60 




BU 


WTAP1 


591 


5 


61 




cw 


LIBSW^l 


592 


5 


62 


• 






593 


5 


63 


* WRITE TAPE 




594 


5 


64 


* 






595 


5 


65 


WTAP1 


WTW 


OUTAP, INPUT 


596 


5 


66 




BER 


WTERR 


597 


5 


67 


* 






598 


5 


68 


* 00 NEXT BLOCK 








• 






600 


5 


70 


REOUT 


B 


CLEAR 


601 


5 


71 




B 


COPY 


602 


5 


72 


* 






603 


5 


73 


» END 


OF FILE 


604 


5 


74 


» 






605 


5 


75 


EOF 


WTM 


OUTAP 


606 


5 


76 




BW 


ISM0R,E0FSW=1 


607 


5 


77 




B 


CLEAR 


608 


5 


78 




LCA 


ENDUP, 3998 


609 


5 


79 




BW 


ERASE, UPDSW 


610 


5 


80 




8 


HALT1 


611 


5 


81 


* 






612 


5 


82 


» ERASE TAPE 




613 


5 


83 


• 






614 


5 


84 


ERASE 


SKP 


OUTAP 


615 


5 


85 




WT 


OUTAP, INPUT 


616 


5 


86 




BCE 


HALTl,SKPCT-lt2 


617 


5 


87 




A 


+1,SKPCT^2 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 0498 

4 0502 

7 0506 

4 0513 

4 0517 

4 0521 



/ 199 
/ 080 
, 006 016 
, 021 
8 N32 
B VOO 



u 


8 


0525 


L 


«U1 


VOO R 


U 


4 


0533 


H 


089 




U 


4 


0537 


D 


0*0 




u 


1 


0541 


• 






u 


5 


0542 


B 


601 


K 


u 


4 


0547 


8 


759 




u 


5 


0551 


B 


798 


L 



u 


4 


0556 


N 


580 


U 


4 


0560 


* 


#79 


U 


7 


0564 


C 


V10 #78 


u 


5 


0571 


8 


580 / 


u 


4 


0576 


) 


♦79 



4 0593 
4 0597 



B #21 

8 525 



74 
75 

75 

75 
75 



75 
75 
76 
76 
76 
76 
76 



76 
76 
77 
77 
77 



u 


8 


0580 


L JU6 VOO W 


77 


u 


5 


0588 


B 928 L 


77 



77 
77 



u 


5 


0601 


U iU6 M 


78 


u 


8 


0606 


V 727 +80 1 


78 


u 


4 


0614 


B +21 


78 


u 


7 


0618 


L /39 198 


78 


u 


8 


0625 


V 637 /26 1 


78 


u 


4 


0633 


B 669 


78 



U 


5 


0637 


U {U6 E 


79 


U 


8 


0642 


M (U6 VOO W 


79 


U 


8 


0650 


B 669 #81 2 


79 


U 


7 


0658 


A +71 #82 


79 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


618 


5 


88 






B 


ERASE 


619 


5 


89 


• 








620 


5 


90 


* 


END 


OF COPY RUN 


621 


5 


91 


* 








622 


5 


92 


HALT1 


MCW 


•1401 AUTOCODER SYST 


623 


5 


93 






W 




624 


5 


94 






CC 


1 


625 


5 


95 






BW 


CPYND,UPDSW=1 


626 


5 


96 






rwd 


OUTAP 


627 


5 


97 


CPYNO 


RWD 


SYSTP 


628 


5 


98 






H 


0,122 


629 


5 


99 






B 


CLEAR 


630 


6 


00 






S 


SKPCT 


631 


6 


01 






MCW 


*N«»SWICH 


632 


6 


02 






SW 


EOFSW 


633 


6 


03 






B 


COPY 


634 


6 


04 


* 








635 


6 


05 


* 


SET 


UP COPY OF REST GF SYSTEM 


636 


6 


06 


» 








637 


6 


07 


ISMOR 


BW 


BDEQF,LIBSW 


638 


6 


08 






CW 


EOFSW 


639 


6 


09 






MCW 


•BSSWICH 


640 


6 


10 






B 


REOUT 


641 


6 


11 


* 








642 


6 


12 


* 


FALSE END 


OF FILE 


643 


6 


13 


* 








644 


6 


14 


BOEOF 


8SP 


OUTAP 


645 


6 


15 






B 


REOUT 


646 


6 


16 


« 








647 


6 


17 


» 


TEST 


FOR NOISE RECORDS 


648 


6 


18 


» 










A. 

V* 


i a 

A. 7 


mnt c c 


COD 

jurv 




650 


6 


20 






SBR 


XR2 


651 


6 


21 






Ml 


+9,XR2 


652 


6 


22 


NOIS2 


BCE 


4000-26+X2, INPUT+13, 


653 


6 


23 






CHAIN 


12 


654 










BCE 




655 










BCE 




656 










BCE 




657 










BCE 




658 










BCE 




659 










BCE 




660 










BCE 




661 










BCE 




662 










BCE 




663 










BCE 




664 










BCE 




665 










BCE 




666 


6 


24 


NOSXT 


B 





667 


6 


25 


» 









SFX CT LOCN INSTRUCTION TYPE CARD 
U 4 0665 B 637 79 



U 


7 


0669 


M 


/25 


243 


79 


u 


1 


0676 


2 






80 


u 


2 


0677 


F 


1 




80 


u 


8 


0679 


V 


692 


/26 1 


80 


u 


5 


0687 


u 


(U6 


R 


80 


u 


5 


0692 


u 


CU1 


R 


80 


u 


7 


0697 


• 


000 


122 


80 


u 


4 


0704 


8 


♦21 




80 


u 


4 


0708 


s 


*82 




81 


u 


7 


0712 


M 


/27 


556 


81 


u 


4 


0719 


f 


*80 




81 


u 


4 


0723 


B 


525 




81 



U 


8 


0727 


V 750 *79 1 


81 


U 


4 


0735 


) *80 


81 


U 


7 


0739 


M /28 556 


81 


U 


4 


0746 


B 593 


82 



u 

U 



0750 
0755 



U IU6 B 
B 593 



82 
82 



11 






u 
n 


t y 1 






U 


4 


0763 


H 


094 




82 


U 


7 


0767 


Y 


/29 094 




82 


u 


8 


0774 


B 


IP4 V13 


MACRO 


82 


u 


1 


0782 


B 




GEN 


83 


u 


1 


0783 


B 




GEN 


83 


u 


1 


0784 


B 




GEN 


83 


u 


1 


0785 


B 




GEN 


83 


u 


1 


0786 


8 




GEN 


83 


u 


1 


0787 


B 




GEN 


83 


u 


1 


0788 


8 




GEN 


83 


u 


1 


0789 


B 




GEN 


84 


u 


1 


0790 


B 




GEN 


84 


u 


1 


0791 


B 




GEN 


84 


u 


1 


0792 


B 




GEN 


84 


u 


1 


0793 


B 




GEN 


84 


u 


4 


0794 


B 


000 




84 
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SEO 


PG 


LIN 


LABEL 


OP 


OPERANDS 


668 


6 


26 


* READ 


REDUNDANCY ROUTINE 


669 


6 


27 


* 






670 


6 


28 


RDERR 


SBR 


RDXT+3 


671 


6 


29 




SBR 


XR3 


672 


6 


30 




MZ 


+9,XR3 


673 


6 


31 




MCW 


4000-24+X3,RDTRY+7 


674 


6 


32 




MN 


RDTRY+3.BSP1+3 


675 


6 


33 


BSP1 


8SP 


SYSTP 


676 


6 


34 




MCW 


+9,RDCT=1 


677 


6 


35 


RDTRY 


RT 


SYSTP,0 


678 


6 


36 




BER 


*+5 


679 


6 


37 


ROXT 


B 





680 


6 


38 




MN 


RDTRY+3,BSP2+3 


681 


6 


39 


BSP2 


BSP 


SYSTP 


682 


6 


40 




S 


+1,RDCT 


683 


6 


41 




BWZ 


RDTRY,RDCT,B 


684 


6 


42 




MN 


RDTRY+3,*+7 


685 


6 


43 




H 


0,190 


686 


6 


44 




MCW 


RDTRY+7,*+8 


687 


6 


45 




RT 


SYSTP, 


688 


6 


46 




BSS 


BSP1,E 


689 


6 


47 




H 


0,111 


690 


6 


48 




B 


RDXT 


691 


6 


49 


* 






692 


6 


50 


* WRITE REDUNDANCY ROUTINE 


693 


6 


51 


* 






694 


6 


52 


WTERR 


SBR 


WTXT+3 


695 


6 


53 




SBR 


XR3 


696 


6 


54 




MZ 


+9,XR3 


697 


6 


55 




MCW 


40Q0-6+X3,WTTRY+7 


698 


6 


56 




MN 


WTTRY+3,BSP3+3 




O 


3 1 


1"» C rt "» 




nut * r* 


700 


6 


58 




SKP 


SYSTP 


701 


6 


59 




BCE 


SUBCT f WTCT-l,l 


702 


6 


60 




A 


+1,WTCT=2 


703 


6 


61 


WTTRY 


WT 


0UTAP,0 


704 


6 


62 




BER 


BSP3 


705 


6 


63 


n 1 A t 


B 





706 


6 


64 


SUBCT 


S 


WTCT 


707 


6 


65 




MN 


WTTRY+3,*+7 


708 


6 


66 




H 


0,160 


709 


6 


67 




B 


WTTRY 


710 


6 


68 


* 






711 


6 


69 


» CLEAR OUTPUT AREA 


712 


6 


70 


• 






713 


6 


71 


CLEAR 


SBR 


CLRXT+3 


714 


6 


72 




MCW 


•I99SCLR+3 


715 


6 


73 


CLR 


cs 


3999 


716 


6 


74 




SBR 


CLR+3 


717 


6 


75 




C 


CLR+3,+INPUT-l 



SFX CT LOCN INSTRUCTION TYPE CARD 



U 


4 


0798 


H 


855 




84 


U 


4 


0802 


H 


099 




85 


u 


7 


0806 


Y 


/29 


099 


85 


u 


7 


0813 


M 


IG6 


846 


85 


u 


7 


0820 


D 


842 


830 


85 


u 


5 


0827 


U 


tui 


B 


85 


u 


7 


0832 


M 


/29 


/30 


85 


u 


8 


0839 


M 


(Ul 


000 R 


86 


u 


5 


0847 


B 


856 


L 


86 


u 


4 


0852 


& 


000 




86 


u 


7 


0856 


D 


842 


866 


86 


u 


5 


0863 


u 


(Ul 


B 


86 


u 


7 


0868 


S 


#71 


/30 


86 


u 


8 


0875 


V 


839 


/30 B 


87 


u 


7 


0883 


D 


842 


896 


87 


u 


7 


0890 


• 


000 


190 


87 


u 


7 


0897 


M 


846 


911 


87 


u 


8 


0904 


M 


<U1 


000 R 


87 


u 


5 


0912 


B 


827 


E 


88 


u 


7 


0917 


• 


000 


111 


88 


u 


4 


0924 


B 


852 




88 



u 


4 


0928 


H 


998 




88 


U 


4 


0932 


H 


099 




88 


u 


7 


0936 


Y 


/29 


099 


88 


u 


7 


0943 


M 


114 


989 


88 


u 


7 


0950 


D 


985 


960 


89 


1 I 

u 




rt rt c -» 




i 1 IZ^ 


£1 

a 


an 


u 


5 


0962 


U 


<U1 


E 


89 


u 


8 


0967 


B 


999 


/31 1 


89 


u 


7 


0975 


A 


*71 


/32 


89 


u 


8 


0982 


M 


CU6 


000 w 


90 


u 


5 


0990 


B 


957 


L 


90 


u 


4 


0995 


B 


000 




90 


u 


4 


0999 


S 


/32 




90 


u 


7 


1003 


D 


985 


*16 


90 


u 


7 


1010 


• 


000 


160 


90 


u 


4 


1017 


B 


982 




90 



U 


4 


1021 


H *55 


91 


U 


7 


1025 


M /35 #35 


91 


U 


4 


1032 


/ 199 


91 


U 


4 


1036 


H 4=35 


91 


U 


7 


1040 


C *35 /38 


91 



1401 AUTOCODER-PASS 1 COPY SYSTEM TAPE 



-VERSION 3 



3714L 



PAGE 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


718 


6 


76 




BU 


CLR 


719 


6 


77 


CLRXT 


8 





720 


6 


78 




LTORG 


* 






556 




OCW 


•999999 HEADR» 
+ 1 






566 


BYCT 




=01 






589 






•999999 1 






591 


LI8SW 




= 01 






606 


EGFSfc 




=01 






617 


SKPCT 




=02 






622 






•1401 AUTOCODER SYSTEM COPIED ON TAPE UNIT 6» 






625 


UPDSW 




=01 
•N* 
•B« 

+9 






676 


RDCT 




=01 






702 


VsiTCT 




=02 
»I99« 






717 






+INPUT-1 


721 


6 


79 


ENDUP 


DCW 


i t 


722 


6 


80 




EX 






SFX CT LOCN INSTRUCTION TYPE CARD 



u 


5 


1047 


B *32 


u 


4 


1052 


B 000 


u 






1056 


u 


15 


1070 




u 


1 


1071 




u 


1 


1072 




u 


6 


1078 




u 


1 


1079 




u 


1 


1080 




u 


2 


1082 




u 


43 


1125 




u 


1 


1126 




u 


1 


1127 




u 


1 


1128 




u 


1 


1129 




u 


1 


1130 




u 


2 


1132 




u 


3 


1135 




u 


3 


1138 


U99 


u 


1 


1139 




u 






B 000 





91 




91 


LIT 


92 


LIT 


92 


AREA 


92 


LIT 


92 


AREA 


92 


AREA 


92 


AREA 


92 


LIT 


94 


AREA 


94 


LIT 


94 


LIT 


94 


LIT 


94 


AREA 


95 


AREA 


95 


LIT 


95 


ADCON 


95 




95 




96 
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SEG 


PG LIN 


LABEL 


OP 


OPERANDS 


723 


6 81 






JOB 


1401 AUTOCOCER-PA 


724 


6 82 


IMAGE 


EQU 


101 


725 


6 83 


« 








726 


6 84 


* 


BEGIN UPDATE 


727 


6 85 


* 








728 


6 86 






ORG 


INPUT 


729 


6 87 


BEGIN 


RWD 


SYSTP 


730 


6 88 






CW 


HEDSW,ENDSW 


731 


6 89 






MCW 


+IMAGE+13,N0IS2+6 


732 


6 90 






LCA 


ENDUP, IMAGE+80 


733 


6 91 






RT 


SYSTP, IMAGE 


734 


6 92 






DCW 


•NOOOOOOOCOOOOO' 


735 


6 93 






B 


NOISE 


736 


6 94 






CS 


IMAGE+79 


737 


6 95 






B 


RDTP 


738 


6 96 


REBEG 


B 


READ 


739 


6 97 






BW 


SERCH, INSfc 


740 


6 98 






Bvy 


SERCH, DELSW 


741 


6 99 






B 


REBEG 


742 


7 00 


# 








743 


7 01 


« 


SEARCH FOR 


CORRECT SUBROUTIN 


744 


7 02 


* 








745 


7 03 


SERCH 


B 


DOCTL 


746 


7 04 






C 


11,«999999» 


747 


7 05 






BE 


CLNUP 


748 


7 06 






C 


8,NAME=3 


749 


7 07 






BE 


FOUND 


750 


7 08 






BH 
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12 


* 


SEARCH FOR 


MACRO 


1155 


11 


13 


* 








1156 


11 


14 


SELMC 


C 


8,NAME=3 


1157 


11 


15 






BE 


TSTLC 


1158 


11 


16 






MCW 


20*218 


1159 


11 


17 






MCW 


11,212 


1160 


11 


18 






BL 


RDTP2 


1161 


11 


19 






RWD 


SYSTP 


1162 


11 


20 






LCA 


ENDOT, 181 


1163 


11 


21 






RT 


SYSTP, 101 



SFX CT LOCN INSTRUCTION TYPE CARD 



OUTPUT LIBRARY 


-VERSION 3 






P 


IU1 




P 


0089 



MACROS 



p 






2000 






p 


4 


2000 


t 


+44 




160 


p 


7 


2004 


L 


+44 


181 


160 


p 


1 


2011 


/ 






160 


p 


4 


2012 


/ 


080 




160 


p 


7 


2016 


f 


006 


016 


160 


p 


4 


2023 


/ 


332 




160 


p 


1 


2027 


/ 






160 


p 


2 


2028 


F 


1 




161 


p 


5 


2030 


U 


CU1 


R 


161 


p 


8 


2035 


M 


(Ul 


101 R 


161 


p 


4 


2043 


/ 


180 




161 


p 


7 


2047 


* 


106 


116 


161 


p 


4 


2054 


* 


121 




161 


p 


5 


2058 


B 


L28 


E 


161 



P 


4 


2063 


) R32 


162 


P 


2 


2067 


F 1 


162 


P 


4 


2069 


8 N59 


162 


P 


1 


2073 


1 


162 


P 


7 


2074 


M Q90 069 


162 


P 


7 


2081 


C 020 Q95 


162 


o 

r 


c 
-» 




o tin <r 


1 £. "* 

XO£. 


P 


7 


2093 


C 020 ROO 


163 


P 


5 


2100 


8 N06 / 


163 



P 


7 


2105 


A 


R01 


069 


163 


P 


7 


2112 


D 


R01 


R02 


163 


P 


7 


2119 


C 


008 


R05 


163 


P 


5 


2126 


B 


K96 


S 


163 


P 


7 


2131 


M 


020 


218 


164 


P 


7 


2138 


M 


Oil 


212 


164 


P 


5 


2145 


B 


J85 


T 


164 


P 


5 


2150 


U 


CU1 


R 


164 


P 


7 


2155 


L 


+44 


181 


164 


P 


8 


2162 


M 


(Ul 


101 R 


164 















1401 AUTOCODER 


SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


1164 


11 


12 






cs 


180 


1165 


11 


23 






sw 


106,116 


1166 


11 


24 






sw 


121 


1167 


11 


25 


RDTP2 


RT 


SYSTP,101 


1168 


11 


26 






8 


NOISE 


1169 


11 


27 






8ER 


RDERR 


1170 


11 


28 






C 


111, , 999999» 


1171 


11 


29 






BE 


UNKN 


1172 


11 


30 






C 


120,»HEADR» 


1173 


11 


31 






BU 


RDTP2 


1174 


11 


32 






C 


8*108 


1175 


11 


33 






BU 


RDTP2 


1176 


11 


34 


* 








1177 


11 


35 


♦ 


DESIRED MACRO FOUND 


1178 


11 


36 


* 








1179 


11 


37 






MCW 


8, NAME 


1180 


11 


38 






CC 


K 


1181 


11 


39 






w 




1182 


11 


40 






s 


SEQNO 


1183 


11 


41 






B 


INSER 


1184 


11 


42 






CC 


K 


1185 


11 


43 


PTAGN 


B 


PRINT 


1186 


11 


44 






RT 


SYSTP,101 


1187 


11 


45 






B 


NOISE 


1188 


11 


46 






BER 


RDERR 


1189 


11 


47 






C 


120, , HEADR« 


1190 


11 


48 






BU 


PTAGN 


1191 


11 


49 






BSP 


SYSTP 


1192 


11 


50 


* 








1193 


11 


51 


* 


TEST 


END i 


DF RUN 


1194 


11 


52 


* 










XX 




1 JILV, 




rn mo 


1196 


11 


54 






B 


READ 


1197 


11 


55 


* 








1198 


11 


56 


* 


MACRO NOT 


ON TAPE 


1199 


11 


57 


• 








1200 


11 


58 


UNKN 


MCW 


•UNKNOWN", 299 


1201 


11 


59 






w 




1202 


11 


60 






cs 


299 


1203 


11 


61 






MCW 


•999SNAME 


1204 


11 


62 






B 


TSTLC 


1205 


11 


63 


* 








1206 


11 


64 


* 


PRINT AND/OR PUNCH ALL OR 


1207 


11 


65 


• 








1208 


11 


66 


00ALL 


BSS 


SETUP, D 


1209 


11 


67 






cw 


HDRSW=i 


1210 


11 


68 






BSS 


* + 5»G 


1211 


11 


69 






B 


SETUP 


1212 


11 


70 


* 








1213 


11 


71 


* 


PUNCH ALL 





■PASS 1 OUTPUT LIBRARY 



-VERSION 3 



3716L 



PAGE 27 



SFX CT LOCN INSTRUCTION TYPE CARD 



p 


4 


2170 


/ 


180 




165 


p 


7 


2174 


t 


106 


116 


165 


p 


4 


2181 


t 


121 




165 


p 


8 


2185 


M 


<Ul 


101 R 


165 


p 


4 


2193 


B 


P67 




165 


p 


5 


2197 


B 


Q06 


L 


165 


p 


7 


2202 


C 


111 


Rll 


165 


p 


5 


2209 


B 


L05 


S 


166 


p 


7 


2214 


C 


120 


R16 


166 


p 


5 


2221 


B 


J85 


/ 


166 


p 


7 


2226 


C 


008 


108 


166 


p 


5 


2233 


B 


J85 


/ 


166 



P 


7 


2238 


M 


008 


R05 


166 


P 


2 


2245 


F 


K 




166 


P 


I 


2247 


2 






167 


P 


4 


2248 


S 


R48 




167 


P 


4 


2252 


8 


N17 




167 


P 


2 


2256 


F 


K 




167 


P 


4 


2258 


B 


N81 




167 


P 


8 


2262 


M 


<U1 


101 R 


167 


P 


4 


2270 


B 


P67 




167 


P 


5 


2274 


B 


Q06 


L 


168 


P 


7 


2279 


C 


120 


R21 


168 


P 


5 


2286 


8 


K58 


/ 


168 


P 


5 


2291 


U 


(Ul 


B 


168 



4 2301 B -67 



p 


5 


2328 


B 


L60 D 


p 


4 


2333 


) 


R32 


p 


5 


2337 


8 


L46 G 


p 


4 


2342 


B 


L60 



168 



p 


7 


2305 


M R28 299 


168 


p 


1 


2312 


2 


169 


p 


4 


2313 


/ 299 


169 


p 


7 


2317 


M R31 R05 


169 


p 


4 


2324 


B K96 


169 



169 
169 
169 
170 



1401 AUTOCODER-PASS 1 OUTPUT LIBRARY 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1214 


11 


72 


# 






1215 


11 


73 




A 


+4,0PC0D 


1216 


11 


74 




MN 


+4,0PSAV 


1217 


11 


75 


SETUP 


8 


HEAD1 


1218 


11 


76 




cw 


HDSW1=1 


1219 


11 


77 




B 


PRTHD 


1220 


11 


78 


RDTP 


RT 


SYSTP,101 


1221 


11 


79 




B 


NOISE 


1222 


11 


80 




BER 


RDERR 


1223 


11 


81 




C 


lllt'999999 t 


1224 


11 


82 




BE 


EOJOB 


1225 


11 


83 




C 


120,«HEADR* 


1226 


11 


84 




BU 


DOPNT 


1227 


11 


85 




B 


INSER 


1228 


11 


86 




CC 


K 


1229 


11 


87 




S8R 


PRTXT+3,*+6 


1230 


11 


88 




BCV 


NEWPG 


1231 


11 


89 




S 


SEQN0=4 


1232 


11 


90 


DOPNT 


B 


PRINT 


1233 


11 


91 




SW 


106,116 


1234 


11 


92 




sw 


121 


1235 


11 


93 




B 


RDTP 


1236 


11 


94 


• 






1237 


11 


95 


♦ END 


OF JOB 




1238 


11 


96 


* 






1239 


11 


97 


E0J08 


cs 


332 


124C 


11 


98 




cs 




1241 


11 


99 




cc 


K 


1242 


12 


00 




MCW 


•END OF LIBRA 


1243 


12 


01 




w 




1244 


12 


02 




cc 


1 


1 OAK 


4. t- 






cs 


i cm 

4.W 


1246 


12 


04 




BCE 


CLRPH, 0PSAV,4 


1247 


12 


05 


RWD 


RWD 


SYSTP 


1248 


12 


06 


HALT 


H 


0,155 


1249 


12 


07 




B 


HALT 


1250 


12 


08 


CLRPH 


P 




1251 


12 


09 




SS 


8 


1252 


12 


10 




B 


RWD 


1253 


12 


11 


* 






1254 


12 


12 


* INCORRECT 


INPUT CARD 


1255 


12 


13 


* 






1256 


12 


14 


ERROR 


H 


0,144 


1257 


12 


15 




B 


TSTLC 


1258 


12 


16 


INSER 


S8R 


INSXT+3 


1259 


12 


17 




MCW 


• »,1C5 


1260 


12 


18 




MCW 


•INSER', 120 


1261 


12 


19 




BCE 


»+5,0PSAV,4 


1262 


12 


20 




B 


* + 2 


1263 


12 


21 




P 





VERSIO 


N 3 




3716L 






PAGE 


28 




SFX 


CT 


LGCN 


INSTRUCTION TYPE 


CARD 




P 


7 


2346 


A 


R01 


069 


170 




P 


7 


2353 


D 


R01 


R02 


170 




P 


4 


2360 


B 


P19 




170 




P 


4 


2364 


3 


R33 




170 




P 


4 


2368 


B 


N59 




170 




P 


8 


2372 


M 


CU1 


101 R 


170 




P 


4 


2380 


B 


P67 




171 




P 


5 


2384 


B 


Q06 


L 


171 




P 


7 


2389 


C 


111 


R39 


171 




P 


5 


2396 


B 


M54 


S 


171 




P 


7 


2401 


C 


120 


R44 


171 




P 


5 


2408 


B 


M35 


/ 


171 




P 


4 


2413 


B 


N17 




171 




P 


2 


2417 


F 


K 




172 




P 


7 


2419 


H 


083 


M31 


172 




P 


5 


2426 


B 


097 


i 


172 




P 


4 


2431 


S 


R48 




172 




P 


4 


2435 


B 


N81 




172 




P 


7 


2439 


t 


106 


116 


172 




P 


4 


2446 


t 


121 




172 




P 


4 


2450 


B 


L72 




173 



P 


4 


2454 


/ 


332 




173 


P 


1 


2458 


/ 






173 


P 


2 


2459 


F 


K 




173 


P 


7 


2461 


N 


R62 


214 


173 


P 


1 


2468 


2 






173 


P 


2 


2469 


F 


1 




173 


o 

r 


T 


•)i71 




t an 




174 


P 


8 


2475 


B 


M99 


R02 4 


174 


P 


5 


2483 


U 


CU1 


R 


174 


P 


7 


2488 


• 


000 


155 


174 


P 


4 


2495 


B 


ma 




174 


P 


1 


2499 


4 






174 


P 


2 


2500 


K 


8 




174 


P 


4 


2502 


B 


M83 




175 



P 


7 


2506 


. 000 


144 


175 


P 


4 


2513 


B K96 




175 


P 


4 


2517 


H N58 




175 


P 


7 


2521 


M R67 


105 


175 


P 


7 


2528 


M R72 


120 


175 


P 


8 


2535 


B N47 


R02 4 


176 


P 


4 


2543 


B N48 




176 


P 


1 


2547 


4 




176 



1401 AUTOCODER-PASS 1 OUTPUT LIBRARY 



-VERSION 3 



3716L 



PAGE 



29 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1264 


12 


22 






MCW 


«HEADR»,120 


1265 


12 


23 


INSXT 


B 





1266 


12 


24 


* 








1267 


12 


25 


* 


PRINT HEADING 


1268 


12 


26 


• 








1269 


12 


27 


PRTHD 


SBR 


HDXT+3 


1270 


12 


28 






MCW 


•SEQ LABEL 


1271 


12 


29 






W 




1272 


12 


30 






cc 


K 


1273 


12 


31 






cs 


228 


1274 


12 


32 


HDXT 


B 





1275 


12 


33 


• 








1276 


12 


34 


• 


PRINT STATEMENT 


1277 


12 


35 


* 








1278 


12 


36 


PRINT 


SBR 


PRTXT+3 


1279 


12 


37 






C 


120, »HEADR* 


1280 


12 


38 






BE 


DOHDR 


1281 


12 


39 






Bfc 


CLR.HDRSW 


1282 


12 


40 


DOHDR 


CS 


332 


1283 


12 


41 






CS 




1284 


12 


42 






BCE 


COMNT, 106,* 


1285 


12 


43 






MCW 


172,271 


1286 


12 


44 






MCW 


120,218 


1287 


12 


45 






MCW 


111,212 


1288 


12 


46 


DOSEQ 


MN 


SEQNO,204 


1289 


12 


47 






MCS 




1290 


12 


48 






MN 


SEQN0,104 


1291 


12 


49 






MCW 




1292 


12 


50 






A 


+1,SEQN0 


1293 


12 


51 






MCW 


f » ,105 


1294 


12 


52 


OPCOD 


W 








3 J 


r- 1 n 




"*-% i 

uc 


1296 


12 


54 






CS 




1297 


12 


55 






BCV 


NEWPG 


1298 


12 


56 


PRTXT 


B 





1299 


12 


57 


CGMNT 


MCW 


172,273 


1300 


12 


58 






MCW 




1301 


12 


59 






fi V* W 




1302 


12 


60 






B 


DOSEQ 


1303 


12 


61 


* 








1304 


12 


62 


* 


START NEW 


PAGE 


1305 


12 


63 


* 








1306 


12 


64 


NEWPG 


CC 


1 


1307 


12 


65 






BW 


*+5,HDSWl 


1308 


12 


66 






B 


HEAD1 


1309 


12 


67 






B 


PRTHD 


1310 


12 


68 






B 


PRTXT 


1311 


12 


69 


« 








1312 


12 


70 


* 


PRINT MAIN 


HEADING 


1313 


12 


71 


• 









SFX CT LOCN INSTRUCTION TYPE CARD 



OP 



OPERANDS', 227 



2548 
2555 



M R77 120 
B 000 



176 
176 



p 


4 


2559 


H 


N80 




176 


p 


7 


2563 


M 


+03 


227 


176 


p 


1 


2570 


2 






177 


p 


2 


2571 


F 


K 




177 


p 


4 


2573 


/ 


228 




177 


p 


4 


2577 


B 


000 




177 


p 


4 


2581 


H 


083 




177 


p 


7 


2585 


C 


120 


+08 


177 


p 


5 


2592 


8 


005 


S 


177 


p 


8 


2597 


V 


070 


R32 1 


178 


p 


4 


2605 


/ 


332 




178 


p 


1 


2609 


/ 






178 


p 


8 


2610 


B 


084 


106 * 


178 


p 


7 


2618 


M 


172 


271 


178 


p 


7 


2625 


M 


120 


218 


178 


p 


7 


2632 


M 


111 


212 


179 


p 


7 


2639 


D 


R48 


204 


179 


p 


1 


2646 


I 






179 


p 


7 


2647 


D 


R48 


104 


179 


p 


1 


2654 


M 






179 


p 


7 


2655 


A 


+09 


R48 


179 


p 


7 


2662 


n 


+10 


105 


179 


p 


1 


2669 


2 






180 


n 

r 


"T 




/ 






1 QA 


P 


1 


2674 


/ 






180 


P 


5 


2675 


B 


097 


• 


180 


P 


4 


2680 


B 


000 




180 


P 


7 


2684 


M 


172 


273 


180 


P 


1 


2691 


M 






180 


P 


1 


2692 


M 






181 


P 


4 


2693 


B 


039 




181 



P 


2 


2697 


F 1 


181 


P 


8 


2699 


V Pll R33 1 


181 


P 


4 


2707 


B P19 


181 


P 


4 


2711 


B N59 


181 


P 


4 


2715 


B 080 


181 



1401 AUTOCQCER-PASS 1 OUTPUT LIBRARY 



-VERSION 3 



3716L 



PAGE 30 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1314 


12 


72 


HEA01 


S8R 


HD2XT+3 


1315 


12 


73 




CS 


332 


1316 


12 


74 




CS 




1317 


12 


75 




MCW 


•1401 AUTGCCDER 


1318 


12 


76 




MCW 


, PAGE*»275 


1319 


12 


77 




A 


+1,PGN0=3 


1320 


12 


78 




MCS 


PGNC279 


1321 


12 


79 




W 




1322 


12 


80 




cc 


L 


1323 


12 


81 




CS 


299 


1324 


12 


82 


HD2XT 


B 





1325 


12 


83 


♦ 






1326 


12 


84 


* TEST 


FOR NOISE RECORDS 


1327 


12 


85 


* 






1328 


12 


86 


NOISE 


SBR 


NOSXT+3 


1329 


12 


87 




SBR 


XR1 


1330 


12 


88 




MZ 


+9,XR1 


1331 


12 


89 




BCE 


4000-12+Xl,113, 


1332 


12 


90 




CHAIN 


12 


1333 








BCE 




1334 








BCE 




1335 








BCE 




1336 








BCE 




1337 








BCE 




1338 








BCE 




1339 








BCE 




1340 








BCE 




1341 








BCE 




1342 








BCE 




1343 








BCE 




1344 








BCE 




1 lAR 






MflCVT 


a 




1346 


12 


92 


ft 






1347 


12 


93 


* READ 


REDUNDANCY ROUTINE 


1348 


12 


94 


• 






1349 


12 


95 


RDERR 


SBR 


RDXT+3 


1350 


12 


96 


BSP 


BSP 


SYSTP 


1351 


12 


97 




MCW 


+9»RDCT=1 


1352 


12 


98 


RDTRY 


RT 


SYSTP, 101 


1353 


12 


99 




BER 


♦+5 


1354 


13 


00 


ROXT 


B 





1355 


13 


01 




BSP 


SYSTP 


1356 


13 


02 




S 


+1.RDCT 


1357 


13 


03 




BUZ 


RDTRY, RDCT,B 


1358 


13 


04 




H 


0,191 


1359 


13 


05 




RT 


SYSTP, 101 


1360 


13 


06 




BSS 


BSP.E 


1361 


13 


07 




H 


0,111 


1362 


13 


08 




B 


RDXT 


1363 


13 


09 




LTQRG 


« 



SFX CT LOCN INSTRUCTION TYPE CARD 



- LIBRARY 1 , 243 



p 


4 


2719 


H 


P66 




182 


p 


4 


2723 


/ 


332 




182 


p 


1 


2727 


/ 






182 


p 


7 


2728 


H 


+34 


243 


182 


p 


7 


2735 


M 


+38 


275 


182 


p 


7 


2742 


A 


+09 


+41 


182 


p 


7 


2749 


Z 


+41 


279 


182 


p 


1 


2756 


2 






183 


p 


2 


2757 


F 


L 




183 


p 


4 


2759 


/ 


299 




183 


p 


4 


2763 


B 


000 




183 



P 


4 


2767 


H 


005 




183 


P 


4 


2771 


H 


089 




183 


P 


7 


2775 


Y 


+42 089 




183 


P 


8 


2782 


B 


IY8 113 


MACRO 


184 


P 


1 


2790 


B 




GEN 


184 


P 


1 


2791 


B 




GEN 


184 


P 


1 


2792 


B 




GEN 


184 


P 


1 


2793 


B 




GEN 


184 


P 


1 


2794 


B 




GEN 


184 


P 


1 


2795 


B 




GEN 


184 


P 


1 


2796 


B 




GEN 


185 


P 


1 


2797 


8 




GEN 


185 


P 


1 


2798 


B 




GEN 


185 


P 


1 


2799 


B 




GEN 


185 


P 


1 


2800 


B 




GEN 


185 


P 


1 


2801 


B 




GEN 


185 


D 
r 


-T 


Oflrt-) 


a 






185 



P 


4 


2806 


H 


Q38 




186 


P 


5 


2810 


U 


(Ul 


B 


186 


P 


7 


2815 


M 


+42 


+43 


186 


P 


8 


2822 


M 


(Ul 


101 R 


186 


P 


5 


2830 


B 


039 


L 


186 


P 


4 


2835 


B 


000 




186 


P 


5 


2839 


U 


(Ul 


B 


186 


P 


7 


2844 


S 


+09 


+43 


187 


P 


8 


2851 


V 


Q22 


+43 B 


187 


P 


7 


2859 


• 


000 


191 


187 


P 


8 


2866 


M 


(Ul 


101 R 


187 


P 


5 


2874 


B 


Q10 


E 


187 


P 


7 


2879 


• 


000 


111 


188 


P 


4 


2886 


8 


Q35 




188 


P 






2890 







1401 AUTOCODER-PASS 1 OUTPUT 



SEQ 


PG LIN 

1144 
1146 


LABEL 


OP 
OCW 


OPERANDS 

•2* 

'PRINT' 
'PUNCH' 
+4 






1152 


0PSAV 




=01 






1156 


NAtfE 




=03 






1170 






•999999' 






1172 






'HEADR' 






1189 






•HEADR* 






1200 






•UNKNOWN' 
'999» 






1209 


HDRSW 




=01 






1218 


HDSW1 




=01 






1223 






•999999 1 






1225 






•HEADR' 






1231 


SEGNO 




=04 






1242 






•END OF LIBRARY* 






1259 






• • 






1260 






• INSER' 






1264 






•HEADR' 






1270 






•SEQ LABEL OP 


OPERANDS 




1279 






•HEADR* 

+ 1 
t i 






1317 






•1401 AUTOCODER - 
•PAGE* 


LIBRARY' 




1319 


PGNO 




=03 
+9 






1351 


ROCT 




=01 




1364 


13 10 


ENDOT 


DCW 


t t 




1365 


13 11 




EX 







1JOO 


1 »» to 
L3 JL£ 




CIMU 







LIBRARY 


-VERSION 3 




3716L 


PAGE 


31 




SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 




P 


I 


2890 


LIT 


188 




P 


5 


2895 


LIT 


188 




P 


5 


2900 


LIT 


188 




P 


1 


2901 


LIT 


188 




P 


1 


2902 


AREA 


188 




P 


3 


2905 


AREA 


189 




P 


6 


2911 


LIT 


189 




P 


5 


2916 


LIT 


189 




P 


5 


2921 


LIT 


189 




P 


7 


2928 


LIT 


189 




P 


3 


2931 


LIT 


189 




P 


1 


2932 


AREA 


189 




P 


1 


2933 


AREA 


190 




P 


6 


2939 


LIT 


190 




P 


5 


2944 


LIT 


190 




P 


4 


2948 


AREA 


190 




P 


14 


2962 


LIT 


190 




P 


5 


2967 


LIT 


190 




P 


5 


2972 


LIT 


191 




P 


5 


2977 


LIT 


191 




P 


26 


3003 


LIT 


191 




P 


5 


3008 


LIT 


192 




P 


1 


3009 


LIT 


192 




P 


1 


3010 


LIT 


192 




P 


24 


3034 


LIT 


192 




P 


4 


3038 


LIT 


192 




P 


3 


3041 


AREA 


192 




P 


1 


3042 


LIT 


192 




P 


1 


3043 


AREA 


193 




P 


1 


3044 




193 




P 






B 000 


194 




r 






f \J\J\J uou 


17 1 



3 ERRORS 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



,008015,019026,0 30,034041,045,053,0570571026 

L068 112, 102106, 113/101099/ 1 99, 027A070028 3 027800 1027080261,001/001 11310 

,008015,022029,036040,047054,061068,072/061039 ,0010011040 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



37221 



PAGE 



SEQ PG LIN LABEL OP 



101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 



128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
01 
02 
04 
05 
06 
08 
09 
10 
12 
12 
13 
14 
15 
16 



126 1 17 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



1 30 
1 31 



32 
33 
34 



001 



OTHER 
MINUS2 
MINUS3 
DIOCSB 

MAINX 
LMAINX 

INDEX1 

089 

091 

INDEX2 

094 

096 

INDEX3 

099 

100 

* 

* 

« 

START 



CMCTL 



JOB 

CTL 

SFX 

EQU 

EQU 

EQU 

EQU 

ORG 

DA 

ECU 

XINIT 

EQU 

DCW 

DC 

EQU 

DCW 

DC 

EQU 

DCW 

DC 



OPERANDS 

1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 - 

630 1 

I 

START 

2 

3 

LA8DI0-4 

1 

1X86 

* 

INDEX1,INCEX2,INDEX3 

089 

000 

00 

094 

000 

00 

099 

000 



START OF MAIN LINE 



1 350 
1 36 



ORG 


101 




RWO 


4 




RWD 


5 




ni sin 

t\mv 


e 
O 




8SS 


0VLAY2,8 




B 


REDREC 




C 


MA1NX+17, 


*JOB» 


BU 


CMCTL 




CC 


1 




MCW 


80,280 




W 






CC 


1 




B 


WRTREC 




B 


REDREC 




C 


MAINX+17, 


*CTL« 


BU 


FIND 




BCE 


ROBIN, MAINX+23,1 


MN 


MAINX+21,* 


+8 


BCE 


ROBIN, »456 


S 


CHAIN 


2 




BCE 






BCE 






B 


BLUE 




ORG 


201 





SFX 


CT 


LOCN 


INSTRUCTION 


TYPE 


CARD 


ION 3 












I 




0101 








I 




0002 








I 




0003 








I 




0576 








I 






0001 






I 




0001 


0086 




4 


I 




0086 




MACRO 




I 




0089 




GEN 




I 


3 


0089 




GEN 


4 


I 


2 


0091 




GEN 


4 


I 




0094 




GEN 




I 


3 


0094 




GEN 


4 


I 


2 


0096 




GEN 


4 


I 




0099 




GEN 




I 


3 


0099 




GEN 


4 


I 


1 


0100 




GEN 


4 







0101 








I 5 


0101 


U 


CU4 


R 




4 


I 5 


0106 


U 


(U5 


R 




4 


T E 












T 


I 5 


0116 


B 


P32 


B 




5 


I 4 


0121 


B 


774 






5 


I 7 


0125 


C 


018 


W05 




5 


I 5 


0132 


B 


157 


/ 




5 


I 2 


0137 


F 


1 






5 


I 7 


0139 


M 


080 


280 




5 


I 1 


0146 


2 








5 


I 2 


0147 


F 


1 






6 


I 4 


0149 


B 


721 






6 


I 4 


0153 


B 


774 






6 


I 7 


0157 


C 


018 


W08 




6 


I 5 


0164 


B 


642 


/ 




6 


I 8 


0169 


B 


623 


024 1 


6 


I 7 


0177 


D 


022 


191 




6 


I 8 


0184 


B 


623 


Wll 


MACRO 


7 


I 1 


0192 


B 






GEN 


7 


I 1 


0193 


B 






GEN 


7 


I 4 


0194 


B 


627 






7 






0201 









1401 AUTOCOCER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


148 


1 


37 




DA 


1X132 


149 


1 


38 






6,6 


150 


1 


39 


DTFTAB 


EQU 


LABDTF-1 


151 


1 


40 




ORG 


333 


152 


1 


41 


EITHER 


B 


NEXREC 


153 


1 


42 


* 






154 


1 


43 


» 




CQNTRO 


155 


1 


44 


# 






156 


1 


45 


SPECL 


DCW 


«ftt 


157 


1 


46 


SYMNM 


DCW 


=3 


158 


1 


47 


• 






159 


1 


48 


# 




DTF M 


160 


1 


49 


* 






161 


1 


50 




DCW 


» 


162 


1 


51 




DCW 




163 


1 


52 




DCW 




164 


1 


53 


FILENM 


DCW 


=6 


165 


1 


54 


LABDTF 


DCW 




166 


1 


55 




DCW 




167 


1 


56 




DCW 




168 


1 


57 




DCW 




169 


1 


58 




DCW 




170 


1 


59 




DCW 




171 


1 


60 




DCW 




172 


1 


61 




DCW 




173 


1 


62 




DCW 




174 


1 


63 




DCW 




175 


1 


64 




DCW 




176 


1 


65 




DCW 




177 


1 


66 




DCW 




178 


1 


67 




DCW 




LI** 


l 


68 




DCW 


• • 


180 


1 


69 




DCW 


t • 


181 


1 


70 




DCW 


t t 


182 


1 


71 




DCW 


• i 


183 


1 


72 




DCW 




184 


1 


73 




DCW 




185 


1 


74 




DCW 




186 


1 


75 




DCW 


t i 


187 


1 


76 




DCW 




188 


1 


77 




DCW 




189 


1 


78 




DCW 


t i 


190 


1 


79 




DCW 


• t 


191 


1 


80 




DCW 


i t 


192 


1 


81 




DCW 


i i 


193 


1 


82 




DCW 


i t 


194 


1 


83 




DCW 


i i 


195 


1 


84 




DCW 


i t 


196 


1 


85 




DCW 


• i 


197 


1 


86 




DCW 


i t 



CONTROL CARD INFORMATION 



SFX CT 


LOCN 


INSTRUCTION TYPE CARD 




0201 


0332 7 




0206 


FIELD 7 




0349 


0333 


I 4 


0333 


B 681 8 



0337 
0340 











I 1 


0341 




COBOL YES 






I 1 


0342 




EXITS YES 






I 1 

I 6 


0343 
0349 


1 


INPUT 


1 


FILETYPE 


I 1 


0350 


2 


OUTPUT 


2 




I 1 


0351 


3 


TAPE 


3 




I 1 


0352 


4 


READER 


4 




I 1 


0353 


5 


PUNCH 


5 




I 1 


0354 


6 


PRINTER 


6 




I 1 


0355 


7 


LOAD 


7 


MODEPAR 


I 1 


0356 


8 


CHECKPOINT 


8 


FEATURES 


I 1 


0357 


9 


NUMBER 


9 


CHANDRIVE 


I 1 


0358 


10 


NUMBER 


10 


CARDPOC 


I 1 


0359 


11 


NUMBER 


11 


ALTTAPE 


I 1 


0360 


12 


BLOCKED 


12 


RECFORM 


I 1 


0361 


13 


UNBLOCKED 


13 




I 1 


0362 


14 


MIXED 


14 




I 1 


0363 


i tr 
LZ> 


* Ml\ i HDLC 






l L 




16-19 


NUMBER 


16 


SI2EREC 


I 4 


0368 


20 


NUMBER 


17 


PADDING 


I 1 


0369 


21-24 


NUMBER 


18 


BLOCKSIZE 


I 4 


0373 


25- 


34 LABELS 


19 


IOAREAS 


I 10 


0383 


35- 


44 


20 




I 10 


0393 


45-54 LABEL 


21 


WORKAREA 


I 10 


0403 


55 


NUMBER 


22 


INDEXREG 


I 1 


0404 


56-65 LABEL 


23 


EORADDR 


I 10 


0414 


66- 


75 LABEL 


24 


WLRADDR 


I 10 


0424 


76 


RECORD 


25 


TOTALS 


I 1 


0425 


77-80 


HASH 


26 




I 4 


0429 


81 


STANDARD 


27 


TYPELABEL 


I 1 


0430 


82 


NONSTANDARD 


28 




I 1 


0431 


83 


TM 


29 




I 1 


0432 


84 


ALL 


30 


CHECKLABEL 


I 1 


0433 


85 


IDENT 


31 




I 1 

I 3 
I 5 


0434 
0437 
0442 



8 

8 

8 

8 

9 

9 

9 

9 

9 

9 

9 

10 

10 

10 

10 

10 

10 

10 

•% 1 

A JL 

11 
11 
11 
11 
11 

12 
12 
12 
12 
12 
12 
12 
13 
13 
13 
13 
13 
13 



1401 AUT0C0CER-PASS 2-PRGCESS IOCS-MAIN 2 -VERSION 3 



37221- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 












SFX 


CT 


LOCN 


198 


1 


87 




DCW 


• i 


i 










I 


10 


0452 


199 


1 


88 




DCW 


t t 


104-108 NUMBER 




35 


SERIALNUM 


I 


5 


0457 


200 


1 


89 




DCW 




» 109-118 






39 


EX1AD0R 


I 


10 


0467 


201 


1 


90 




DCW 




119-128 






40 


EX2ADDR 


I 


10 


0477 


202 


1 


91 




DCW 




' 129-138 






41 


EX3ADDR 


I 


10 


0487 


203 


1 


92 




DCW 




» 139-148 






42 


EX4ADDR 


I 


10 


0497 


204 


1 


93 




DCW 




' 149-158 






43 


EX5ADDR 


I 


10 


0507 


205 


1 


94 




DCW 




» 159-168 






44 


EX6ADDR 


I 


10 


0517 


206 


1 


95 




DCW 




» 169-178 






45 


EX7ADDR 


I 


10 


0527 


207 


1 


96 




DCW 




» 179-188 






46 


EX8ADDR 


I 


10 


0537 


208 


1 


97 




DCW 




1 189-198 






47 


VAR8UILD 


I 


10 


0547 


209 


1 


98 




DCW 


• i 


199 UNLOAD 




37 


REWIND 


I 


1 


0548 


210 


1 


99 




DCW 


i i 


200 NOREWD 




38 




I 


1 


0549 


211 


2 


00 




DCW 


t t 


9 


201 






OVERFLOW 


I 


1 


0550 


212 


2 


01 




DCW 


i t 


12 


202 








I 


1 


0551 


213 


2 


02 




DCW 


i t 


203-205 


NUMBER 




REELSEQP 


I 


3 


0554 


214 


2 


03 




DCW 


t • 


206 








FORMCNTL 


I 


1 


0555 


215 


2 


04 




DCW 


=9 












I 


9 


0564 


216 


2 


05 




DCW 


i t 


216 


ADDRESS 




OVERFLOW 


I 


1 


0565 


217 


2 


06 




DCW 


t i 












I 


1 


0566 


218 


2 


07 


ENDDTF 


DCW 


t * 












I 


1 


0567 


219 


2 


08 


• 






















220 


2 


09 


• 




DIOCS MAJOR TABLE 
















221 


2 


10 


* 






















222 


2 


11 




DCW 


S 1 












I 


1 


0568 


223 


2 


12 


DIVIDE 


EQU 


# 












i 




0568 


224 


2 


13 




DCW 




40 


PAR 




OUT 


TAPEUSE 




1 


0569 


225 


2 


14 




DCW 




39 


PAR 




INP 


TAPEUSE 




1 


0570 


226 


2 


15 




DCW 




38 


PAR 




YES 


EXITS 




1 


0571 


227 


2 


16 


LABDIO 


DCW 


=9 






OIOCSORG 






9 


0580 


228 


2 


17 




DCW 




5 












1 


0581 


"» ** r\ 


•"» 


1 r\ 




f»rn 




£. 




nucm * r» 


n c a ft inr e 




i 


nco *» 


£.C*1 


£ 


J.O 




UV.H 




O 




u vent-Mr 


r c« i urvc *> 




X 


UJOt 


230 


2 


19 




DCW 




7 




TAPE 


IODEVICES 




1 


0583 


231 


2 


20 




DCW 




8 




READER 






1 


0584 


232 


2 


21 




DCW 




9 




PUNCH 






1 


0585 


233 


2 


22 




DCW 




10 




PRINTER 






1 


0586 


234 


2 


23 




DCW 




11 




STANDARD 


LABELDEF 




1 


0587 


235 


2 


24 




DCW 




12 




NONSTANDARD 




1 


0588 


236 


2 


25 




DCW 




13 




MIXED 






1 


0589 


237 


2 


26 




DCW 




14 




CHECK 






1 


0590 


238 


2 


27 




DCW 




15 




IDENT 






1 


0591 


239 


2 


28 




DCW 




16 




TM 








I 


0592 


240 


2 


29 




DCW 




17 




YES 


ALTDRIVE 




1 


0593 


241 


2 


30 




DCW 




18 




1 




EXITS 




1 


0594 


242 


2 


31 




DCW 




19 




2 








1 


0595 


243 


2 


32 




DCW 




20 




3 








1 


0596 


244 


2 


33 




DCW 




21 




4 








1 


0597 


245 


2 


34 




OCW 




22 




5 








1 


0598 


246 


2 


35 




DCW 




23 




6 








1 


0599 


247 


2 


36 




DCW 




24 




7 






I 


1 


0600 



INSTRUCTION TYPE CARD 

13 
14 
14 
14 
14 
15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
17 
17 
17 
17 
17 
17 



17 

18 

18 
18 
18 
18 

1 o 

18 
19 
19 
19 
19 
19 
19 
19 
20 
20 
20 
20 
20 
20 
20 
21 
21 
21 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ PG LIN LABEL OP 



OPERANDS 



SFX CT LOCN INSTRUCTION TYPE CARD 



248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
*}-»/■« 

280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

575 

58 

59 

60 

61 

62 

63 

64 

65 



2 66 



68 
69 
70 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



ENDDIG 

* 

ROBIN 
BLUE 
THRU 

FIND 

» 
* 
* 
* 
* 



PREPS2 B 



DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 



S 

MCW 

B 

B 

C 

BE 



GOT IT 
WHOM 
NEXREC 
GAMMA 



DTFND 

« 
♦ 
* 
WRTREC 



B 

MCW 

B 

B 

BCE 

C 

BE 

B 

B 

B 

B 



SBR 
MCW 
SW 



38 
=5 

39-44 
45 
46 



SPECL 

MAINX+25,N0RDRL=1 

WRTREC 

REDREC 

MAINX+19,KDI0CS 

GOTIT 



READ IN PHASE 2 



Tun it u/tTuvxC s 
i nt\u t «*!« i n/% T J f w 

SAVCD 

PASS2 

•M» .LENGTH 

WRTREC 

REDREC 

WHGM f MAINX+5, * 

MAINX+17,'DTF» 

DTFND 

WRTREC 

UPPER 

SAVCD 

CRDOUT 

WRITE ROUTINE 

WRTEXT+3 

LMAINX f LOPUT-l 

LQPUT 



25 


8 




I 


1 


0601 








RDLIN 


LA8ELDEF 




I 


1 


0602 








27 


729 


DRIVETYPE 


I 


1 


0603 








28 


7330 




I 


1 


0604 








29 


NORWD 


RWDOPTION 


I 


1 


0605 








30 


UNLOAD 




I 


1 


0606 








31 TAPE 


»~ 


READERROR 


I 


1 


0607 








32 SCAN 






I 


1 


0608 








33 PROCESS 




I 


1 


0609 








CLEAN 


READERROR 




I 


1 


0610 








35 


YES 


INPVAR 


I 


1 


0611 








36 


YES 


INPFXNO 


I 


1 


0612 








37 


RECORD 


COUNTS 


I 


1 


0613 








HASH 






I 
I 


1 

5 


0614 
0619 








CHECKPOINT 




I 


1 


0620 








RELEASE 




FEATURES 


I 


1 


0621 








STORAGE 






I 


1 


0622 














I 


4 


0623 


S 


337 










I 


7 


0627 


M 


026 


W12 








I 


4 


0634 


B 


721 










I 


4 


0638 


B 


774 










I 


7 


0642 


C 


020 


V71 








I 


5 


0649 


B 


670 


S 



21 
21 
21 
21 
22 

22 
22 
22 
22 
22 
23 
23 
23 
23 
23 
23 
23 



24 
24 
24 
24 
24 
24 



T O 

i. O 




o 

p 








I 4 


0662 


8 


098 




25 


I 4 


0666 


B 


V06 




25 


I 7 


0670 


M 


W13 


743 


25 


I 4 


0677 


B 


721 




25 


I 4 


0681 


B 


774 




25 


I 8 


0685 


B 


677 


006 » 


25 


I 7 


0693 


C 


018 


W16 


25 


I 5 


0700 


B 


713 


S 


26 


I 4 


0705 


B 


721 




26 


I 4 


0709 


B 


821 




26 


I 4 


0713 


B 


098 




26 


I 4 


0717 


B 


J68 




26 



I 


4 


0721 


H 


761 


I 


7 


0725 


M 


086 197 


I 


4 


0732 


• 


198 



26 
26 
27 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 - 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


298 


2 


87 




HCW 


6MWMRK,L0PUT 


299 


2 


88 


LENGTH 


NOP 


»W*,0UTPT+74 


300 


2 


89 


SHORT 


B 


CTAPE 


301 


2 


90 




NOP 


TDF6 


302 


2 


91 


WRTEXT 


B 





303 


2 


92 


TDF6 


DCW 


000 


304 


2 


93 




WT 


6,GUTPT 


305 


2 


94 


GMWMRK 


DC 


• i 


306 


2 


95 


* 






307 


2 


96 


* 




READ ROUTINE 


308 


2 


97 


• 






309 


2 


98 


REDREC 


SBR 


REDEXT+3 


310 


2 


99 




CS 


LMAINX 


311 


3 


00 




8SS 


RTWED,C 


312 


3 


01 




BLC 


DTFQUT 


313 


3 


02 




R 




314 


3 


03 




SSB 


REDEXT,1 


315 


3 


04 


RTWED 


B 


CTAPE 


316 


3 


05 




NOP 


TDF4 


317 


3 


06 


REOEXT 


B 





318 


3 


07 


TDF4 


DCW 


+DTFGUT 


319 


3 


08 




RT 


4,MAINX 


320 


3 


09 


* 






321 


3 


10 


* 




LOOK UP LABEL 


322 


3 


11 


* 






323 


3 


12 


UPPER 


CW 


SCNSW=1 


324 


3 


13 




BCE 


NEXRECHAINX+20, 


325 


3 


14 




SBR 


CHAIR+3,LSTPAR 


326 


3 


15 




S 


INDEX2+1 


327 


3 


16 




SBR 


INDEX3,L8LT8L 


328 


3 


17 


CC*PR 


C 


MAINX+7,0+X3 


329 


3 


18 




/» n «. 


* & i r> r* \je -■* 


330 


3 


19 




BE 


COtfEQ 


331 


3 


20 




BCE 


NEXREC0+X3, • 


332 


3 


21 




A 


»7» ,INDEX2 


333 


3 


22 




B 


COMPR 


334 


3 


23 


8RTBL 


B 


ACTSCN 


335 


3 


24 




DCW 


+DIGCSB+36 


336 


3 


25 




B 


REASB 


337 


3 


26 




DCW 


=3 


338 


3 


27 




B 


OPDSCN 


339 


3 


28 




DCW 


+RWDTB 


340 


3 


29 




B 


OPDSCN 


341 


3 


30 




DCW 


+DRITB 


342 


3 


31 




B 


OPDSCN 


343 


3 


32 




DCW 


+C0UT8 


344 


3 


33 




B 


ACTSCN 


345 


3 


34 




DCW 


+DI0CSB+35 


346 


3 


35 




B 


EXISB 


347 


3 


36 




DCW 


= 3 



VERSION 3 




3722L 


PAGE 


5 


SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


I 


7 


0736 


M 773 198 


27 


I 


7 


0743 


N W17 186 


27 


I 


4 


0750 


8 S22 


21 


I 


4 


0754 


N 764 


27 


I 


4 


0758 


B 000 


27 


I 


3 


0764 




27 


I 


8 


0765 


H tU6 112 W 


28 


I 


1 


0773 




28 



INPFXNO 

READERROR 

RWDOPTION 

DRIVETYPE 

COUNTS 

VARINP 



I 


4 


0774 


H 809 




28 


I 


4 


0778 


/ 086 




28 


I 


5 


0782 


B 798 


C 


28 


I 


5 


0787 


B M46 


A 


28 


I 


1 


0792 


1 




28 


I 


5 


0793 


K 806 


1 


28 


I 


4 


0798 


B S22 




29 


I 


4 


0802 


N 812 




29 


I 


4 


0806 


B 000 




29 


I 


3 


0812 


M46 




29 


I 


8 


0813 


M (U4 


001 R 


29 



I 


4 


0821 


) 


W18 




I 


8 


0825 


B 


681 


021 


I 


7 


0833 


H 


066 


075 


I 


4 


0840 


S 


095 




I 


7 


0844 


H 


099 


H46 


I 


7 


0851 


C 


008 


0+0 


T 
1 


** 


Anco 
W030 


ii 
n 


U77 




I 


5 


0862 


B 


984 


S 


I 


8 


0867 


B 


681 


0+0 • 


I 


7 


0875 


A 


W19 


094 


I 


4 


0882 


B 


851 




I 


4 


0886 


B 


/13 




I 


3 


0892 


612 




I 


4 


0893 


B 


/73 




I 


3 


0899 








I 


4 


0900 


B 


014 




I 


3 


0906 


F95 




I 


4 


0907 


B 


014 




I 


3 


0913 


F82 




I 


4 


0914 


8 


014 




I 


3 


0920 


GO 8 




I 


4 


0921 


B 


/13 




I 


3 


0927 


611 




I 


4 


0928 


B 


992 




I 


3 


0934 









29 
29 

30 
30 
30 
30 

■a/% 

30 
31 
31 
31 
31 
31 
31 
31 
32 
32 
32 
32 
32 
32 
32 
33 
33 
33 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


348 


3 


37 




B 


ACTSCN 


349 


3 


38 




DCW 


+DI0CSB+17 


350 


3 


39 




B 


OPDSCN 


351 


3 


40 




DCW 


+LA8TB 


352 


3 


41 




B 


OPDSCN 


353 


3 


42 




DCW 


+IODTB 


354 


3 


43 




B 


OPDSCN 


355 


3 


44 




DCW 


+FEATB 


356 


3 


45 




B 


DI0S8 


357 


3 


46 




DCW 


+DI0CSB+5 


358 


3 


47 




B 


DIOSB 


359 


3 


48 




DCW 


DIGCSB+44 


360 


3 


49 




B 


OPDSCN 


361 


3 


50 




DCW 


+TAPT8 


362 


3 


51 


COMEQ 


S 


1NDEX3+1 


363 


3 


52 




B 


8RT8L+X2 


364 


3 


53 


* 






365 


3 


54 


EXISB 


LCA 


»$«,DIVIDE+3 


366 


3 


55 




B 


OPDSCN 


367 


3 


56 




DCW 


+EXITB 


368 


3 


57 


* 






369 


3 


58 


NEWSCN 


SBR 


NWEXT+3 


370 


3 


59 




MCW 


• » f 0PDAR=3 


371 


3 


60 




S 


INDEX2+1 


372 


3 


61 


NWSCNL 


c 


MAINX+21+X3,' » 


373 


3 


62 




SW 


MAINX+20 


374 


3 


63 




BE 


FDBLK 


375 


3 


64 




8CE 


F0UND»HAINX+20+X3,, 


376 


3 


65 




C 


INDEX3,»52» 


377 


3 


66 




BE 


BLKFO 


378 


3 


67 




new 


MAlNX+20+X3»0PDAR-2+X2 










* 


■ 1 • T k.tf\t?Vi 

' t. " t mucAc 


380 


3 


69 




BCE 


FOUND, INDEX2 t 3 


381 


3 


70 




A 


»1» ,INDEX3 


382 


3 


71 




B 


NWSCNL 


383 


3 


72 


FCBLK 


A 


*l* *IHDEX3 


384 


3 


73 


BLKFO 


SW 


SCNSW 


385 


3 


74 


NWEXT 


B 





386 


3 


75 


FOUND 


B 


SCANX 


387 


3 


76 




B 


NWEXT 


388 


3 


77 


• 






389 


3 


78 


* 




ACTUAL SCAN FOR YE 


390 


3 


79 


* 






391 


3 


80 


ACTSCN 


SBR 


INDEX1 


392 


3 


81 




MCW 


2+Xi.INDEXl 


393 


3 


82 




C 


MAINX+22, 'YES' 


394 


3 


83 




BU 


ACTOUT 


395 


3 


84 




LCA 


»$«»0+Xl 


396 


3 


85 


ACTOUT 


B 


EITHER 


397 


3 


86 


* 







SFX CT LOCN INSTRUCTION TYPE CARD 



ALTDRIVE 

LABELDEF 

IODEVICES 

FEATURES 
DIOCSORG 



EXITS 



I 


4 


0935 


B 


/13 




33 


I 


3 


0941 


593 




33 


I 


4 


0942 


8 


014 




33 


I 


3 


0948 


F20 




33 


I 


4 


0949 


B 


014 




34 


I 


3 


0955 


E77 




34 


I 


4 


0956 


B 


014 




34 


I 


3 


0962 


E52 




34 


I 


4 


0963 


B 


/47 




34 


I 


3 


0969 


581 




34 


I 


4 


0970 


B 


/47 




34 


I 


3 


0976 


620 




35 


I 


4 


0977 


B 


014 




35 


I 


3 


0983 


£33 




35 


I 


4 


0984 


S 


100 




35 


I 


4 


0988 


B 


8Q6 




35 


I 


7 


0992 


L 


W20 


571 


35 


I 


4 


0999 


B 


014 




35 


I 


3 


1005 


F69 




36 


I 


4 


1006 


H 


/04 




36 


i 


7 


1010 


M 


W23 


W26 


36 


I 


4 


1017 


S 


095 




36 


I 


7 


1021 


C 


0B2 


W28 


36 


I 


4 


1028 


» 


021 




36 


I 


5 


1032 


B 


*90 


S 


36 


I 


8 


1037 


8 


/05 


OBI t 


37 


I 


7 


1045 


C 


099 


W30 


37 


I 


5 


1052 


B 


*97 


S 


37 


I 


7 


1057 


M 


061 


WK4 


37 


T 
i 




1 Ai A 


A 




AAA 

V7"t 


o-ir 


I 


8 


1071 


B 


/05 


094 3 


38 


I 


7 


1079 


A 


W31 


099 


38 


I 


4 


1086 


B 


*21 




38 


I 


7 


1090 


A 


W31 


099 


38 


I 


4 


1097 


t 


W18 




38 


I 


4 


1101 


B 


000 




38 


I 


4 


1105 


B 


N55 




38 


I 


4 


1109 


B 


/Ol 




39 



I 4 


1113 


H 089 


39 


I 7 


1117 


M 0*2 089 


39 


I 7 


1124 


C 023 W34 


39 


I 5 


1131 


B /43 / 


39 


I 7 


1136 


L W20 0*0 


39 


I 4 


1143 


B 333 


39 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


398 


3 


87 


# 




OIOCSORG 


399 


3 


88 


* 






400 


3 


89 


DIGS8 


SBR 


INDEX1 


401 


3 


90 




MCW 


2+Xl,INDEXl 


402 


3 


91 




B 


SCANX 


403 


3 


92 




LCA 


MA1NX+18+X3t0+Xl 


404 


3 


93 




8 


NEXREC 


405 


3 


94 


* 






406 


3 


95 


* 




REAOERRCR 


407 


3 


96 


« 






408 


3 


97 


REASB 


SBR 


CHAIR+3.CHTAP 


409 


3 


98 




8 


OPDSCN 


410 


3 


99 




OCW 


+REAT8 


411 


4 


00 


CHTAP 


C 


OPDAR»«TAP» 


412 


4 


01 




BU 


LSTPAR 


413 


4 


02 




B 


SCANX 


414 


4 


03 




BCE 


LSTPAR, MAINX+18+X3t 


415 


4 


04 




MCW 


MAINX+18+X3,DIOCSB+3 


416 


4 


05 




B 


LSTPAR 


417 


4 


06 


• 






418 


4 


07 


* 




COMBINATION REAC/ 


419 


4 


08 


« 






420 


4 


09 


CTAPE 


SBR 


INDEX2 


421 


4 


10 




SBR 


ICONPR+3 


422 


4 


11 




MCW 


3+X2,INDEX2 


423 


4 


12 




MCW 


8+X2,ITAPEC+7 


424 


4 


13 




MCW 


0+X2.IE0RC+3 


425 


4 


14 




sw 


ICOMPR+4 


426 


4 


15 




MCW 


7+X2,IC0MPR+6 


427 


4 


16 




A 


•12»»IC0MPR+6 


428 


4 


17 




CW 


ICOMPR+4 




* 








r -r a t% r* f i -» Ti.iAtTtz 

i i t\r cut 3 jinwui to 


430 


4 


19 




MN 


ITAPEC+7,IHALT+6 


431 


4 


20 




MCW 


*9«,IERRCT=1 


432 


4 


21 


ITAPEC 


RT 


0,0 


433 


4 


22 




BCE 


IGMETS,ITAPEC+7,W 


434 


4 


23 


IECRC 


BEF 





435 


4 


24 


ICOMPR 


BCE 


ITAPEC, 0, 


436 


4 


25 




CHAIN 


12 


437 








BCE 




438 








BCE 




439 








BCE 




440 








BCE 




441 








BCE 




442 








BCE 




443 








BCE 




444 








BCE 




445 








BCE 




446 








BCE 




447 








BCE 





SFX CT LOCN INSTRUCTION TYPE CARD 



I 


4 


1147 


H 089 


40 


I 


7 


1151 


M 0*2 089 


40 


I 


4 


1158 


B N55 


40 


I 


7 


1162 


L 0A9 0*0 


40 


I 


4 


1169 


B 681 


40 



I 


7 


1173 


H 066 /87 


40 


I 


4 


1180 


B 014 


40 


I 


3 


1186 


G27 


41 


I 


7 


1187 


C W26 W37 


41 


I 


5 


1194 


B 075 / 


41 


I 


4 


1199 


B N55 


41 


I 


8 


1203 


B 075 0A9 


41 


I 


7 


1211 


M 0A9 607 


41 


I 


4 


1218 


B 075 


41 



I 


4 


1222 


H 


094 






42 


I 


4 


1226 


H 


T43 






42 


I 


7 


1230 


M 


0-3 


094 




42 


I 


7 


1237 


M 


0-8 


T01 




42 


I 


7 


1244 


M 


0-0 


T13 




42 


I 


4 


1251 


, 


T19 






42 


I 


7 


1255 


M 


0-7 


T21 




43 


I 


7 


1262 


A 


W39 


T21 




43 


I 


4 


1269 


) 


T19 






43 


T 
A 






u 


COT 
J 7 f 


i too 




A -5 


I 


7 


1280 


D 


T01 


U28 




43 


I 


7 


1287 


M 


W40 


W41 




43 


I 


8 


1294 


M 


(UO 


000 


R 


44 


I 


8 


1302 


B 


T35 


T01 


W 


44 


1 


5 


1310 


B 


000 


K 




44 


I 


8 


1315 


8 


S94 


000 


MACRO 


44 


I 


1 


1323 


B 






GEN 


44 


I 


1 


1324 


B 






GEN 


44 


I 


1 


1325 


B 






GEN 


44 


I 


1 


1326 


B 






GEN 


45 


I 


1 


1327 


B 






GEN 


45 


I 


1 


1328 


B 






GEN 


45 


I 


1 


1329 


8 






GEN 


45 


I 


1 


1330 


B 






GEN 


45 


I 


1 


1331 


B 






GEN 


45 


I 


1 


1332 


B 






GEN 


45 


I 


1 


1333 


B 






GEN 


46 



1401 AUTOCOCER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


448 








BCE 




449 


4 


26 


ICMETS 


BER 


IRWRED 


450 


4 


27 


ICONPR 


B 





451 


4 


28 


IRWRED 


S 


*1»,IERRCT 


452 


4 


29 




MN 


ITAPEC+3,*+4 


453 


4 


30 




BSP 





454 


4 


31 




BCE 


ITROW, ITAPEC+7,W 


455 


4 


32 




BM 


IHALT, IERRCT 


456 


4 


33 




B 


ITAPEC 


457 


4 


34 


ITROW 


A 


»1» ,IERASC=2 


458 


4 


35 




SKP 


6 


459 


4 


36 




BCE 


ICHALT, IERASC-1. 5 


460 


4 


37 




B 


ITAPEC-7 


461 


4 


38 


ICHALT 


S 


IERASC 


462 


4 


39 




H 


0,202 


463 


4 


40 




B 


ITAPEC-7 


464 


4 


41 


IHALT 


H 


0,200 


465 


4 


42 




BSS 


ITAPEC-7, E 


466 


4 


43 




MCW 


ITAPEC+7, *+8 


467 


4 


44 




RT 


0,0 


468 


4 


45 




H 


0,201 


469 


4 


46 




B 


ICONPR 


470 


4 


47 


PASSI 


LCA 


ENDDI0,ENDDTF 


471 


4 


48 




LCA 




472 


4 


49 




SBR 


EITHER+3,DIFREC 


473 


4 


50 




MCW 


+DTFTA8+Xl,GPDFND+6 


474 


4 


51 




LCA 


186,LMAINX 


475 


4 


52 




B 


WRTREC 


476 


4 


53 




B 


DTFNM 


477 


4 


54 


ALT8Y 


B 


BYPSS 


478 


4 


55 




BSP 


4 






JO 


r\ *. C r *\ 


n t 


i. f JW 1 


480 


4 


57 




RT 


1,3997 


481 


4 


58 




SBR 


TDFl+7,341 


482 


4 


59 




B 


CTAPE 


483 


4 


60 




NCP 


TDF1 


484 


4 


61 




B 


0VLY3 


485 


4 


62 


* 






486 


4 


63 


NUMERC 


SBR 


INDEX1 


487 


4 


64 




MCW 


2+Xl,INDEXl 


488 


4 


65 




SW 


MAINX+20 


489 


4 


66 




MCW 


MAINX+20,DTFTAB+X1 


490 


4 


67 




B 


DIFREC 


491 


4 


68 


KOIOCS 


DCW 


•DIOCS* 


492 


4 


69 


BLORB 


B 


SCANX 


493 


4 


70 




A 


MAINX+18+X3.BL0WA-1 


494 


4 


71 




LCA 


BL0WA-l,DTFTAB+24 


495 


4 


72 




S 


BLOWA 


496 


4 


73 




B 


EITHER 


497 


4 


74 


BLCWA 


DCW 


+00000 



SFX CT LOCN INSTRUCTION TYPE CARD 



I 


1 


1334 


B 




GEN 


46 


I 


5 


1335 


B 


T44 


L 


46 


I 


4 


1340 


B 


000 




46 


I 


7 


1344 


S 


W31 


W41 


46 


I 


7 


1351 


D 


S97 


T61 


46 


I 


5 


1358 


U 


tuo 


B 


46 


I 


8 


1363 


B 


T83 


T01 W 


47 


I 


8 


1371 


V 


U22 


W41 K 


47 


I 


4 


1379 


B 


S94 




47 


I 


7 


1383 


A 


W31 


W43 


47 


I 


5 


1390 


U 


(U6 


E 


47 


I 


8 


1395 


B 


U07 


W42 5 


48 


I 


4 


1403 


B 


S87 




48 


I 


4 


1407 


S 


W43 




48 


I 


7 


1411 


• 


000 


202 


48 


I 


4 


1418 


8 


S87 




48 


I 


7 


1422 


• 


000 


200 


48 


I 


5 


1429 


B 


S87 


E 


48 


I 


7 


1434 


M 


T01 


U48 


49 


I 


8 


1441 


M 


tuo 


000 R 


49 


I 


7 


1449 


• 


000 


201 


49 


I 


4 


1456 


B 


T40 




49 


I 


7 


1460 


L 


622 


567 


49 


I 


1 


1467 


L 






49 


I 


7 


1468 


H 


336 


M06 


50 


I 


7 


1475 


M 


W46 


093 


50 


I 


7 


1482 


L 


186 


086 


50 


I 


4 


1489 


B 


721 




50 


I 


4 


1493 


B 


L91 




50 


I 


4 


1497 


B 


C49 




50 


I 


5 


1501 


U 


tU4 


B 


50 


T 
X 


a 
o 


1 C rt £. 


u 


fiii 

|U1 


X, 7 f l\ 


C 1 


I 


8 


1514 


M 


CU1 


197 R 


51 


I 


7 


1522 


H 


P30 


341 


51 


I 


4 


1529 


B 


S22 




51 


I 


4 


1533 


N 


P23 




51 


I 


4 


1537 


B 


341 




51 


I 


4 


1541 


H 


089 




51 


I 


7 


1545 


M 


0*2 


089 


52 


I 


4 


1552 


t 


021 




52 


I 


7 


1556 


M 


021 


3U9 


52 


I 


4 


1563 


B 


M06 




52 


I 


5 


1571 








52 


I 


4 


1572 


B 


N55 




52 


I 


7 


1576 


A 


0A9 


W01 


52 


I 


7 


1583 


L 


W01 


373 


53 


I 


4 


1590 


S 


W02 




53 


I 


4 


1594 


8 


333 




53 


I 


5 


1602 








53 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 2 -VERSION 3 



3722L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


498 


4 


75 




LTORG 
DCW 


* 

•JOB* 
•CTL 1 
•456' 






269 


NQRDRL 




=01 

•M* 
•DTF« 

•w« 






323 


SCNSW 




=01 

»7« 

*$• 
• i 






370 


OPDAR 




=03 
i • 

•52' 

«1« 

•YES 1 

•TAP" 

•12« 

•9« 






431 


IERRCT 




=01 






457 


IERASC 




=02 






473 






+DTFTAB+X1 


499 


4 


76 




ORG 


1649 


500 


4 


77 


CVER 


DCW 


i i 


501 


4 


78 




EX 





SFX CT LOCN INSTRUCTION TYPE CARD 



I 3 


1603 
1605 


I 3 


1608 


I 3 


1611 


I 1 


1612 


I 1 


1613 


I 3 


1616 


I 1 


1617 


I 1 


1618 


I 1 


1619 


I 1 


1620 


I 3 


1623 


I 3 


1626 


I 2 


1628 


I 2 


1630 


I 1 


1631 


I 3 


1634 


I 3 


1637 


I 2 


1639 


I 1 


1640 


I 1 


1641 


I 2 


1643 


I 3 


1646 3U9 




1649 


I 1 


1649 




8 000 



LIT 


53 


LIT 


..„_ 


LIT 


53 


AREA 


54 


LIT 


54 


LIT 


54 


LIT 


54 


AREA 


54 


LIT 


54 


LIT 


54 


LIT 


55 


AREA 


55 


LIT 


55 


LIT 


55 


LIT 


55 


LIT 


55 


LIT 


55 


LIT 


56 


LIT 


56 


AREA 


56 


AREA 


56 


ADCON 


56 




57 




58 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 



3721L 



PAGE 10 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




502 


4 


79 




JOB 


1401 AUTOCODER-PASS 2-i 


PROCESS IOCS-MAIN 1 
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505 
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506 
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83 
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DTF TABLE OF BRANCHES 


507 


4 


84 


• 








508 


4 


85 


DTFINT 


S8R 


INCEX3,DTFLAB 




509 


4 


86 




SBR 


CHAIR+3,LSTPAR 




510 


4 


87 




BCE 


DIFRECMAINX + 20, 




511 


4 


83 




CW 


SCNSW 




512 


4 


89 




C 


MAINX+6,*EX« 




513 


4 


90 




BE 


EXIR8 




514 


4 


91 




S 
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515 


4 


92 


SEEK 


C 


MAINX+7,0+X3 




516 


4 


93 




SBR 


INDEX3 




517 


4 


94 




BE 


AGREE 




518 


4 


95 




BCE 


DIFR£CtO+X3,» 




519 


4 


96 




A 
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520 


4 


97 




B 


SEEK 




521 


4 


98 


DTFBR 


8 


OPDSCN 
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4 


99 




DCW 


REWXZ 


REWIND 
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524 


5 
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DCW 
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5 


03 




DCW 
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SERIALNUM 


527 
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B 
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B 
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76 


I 4 
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652 


6 
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MCW 
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6 
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6 
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S8R 
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655 


6 


31 




MCW 
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6 
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657 


6 
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6 
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0+X1 
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6 


35 
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660 


6 
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MCW 


MAINX+78 
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6 
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CW 


0+X1 
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6 


38 




8 


NEWWRT 
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6 
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CW 


OUTPT+80 


664 


6 


40 




8 
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6 


41 
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MCW 
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6 
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6 


43 
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6 
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6 
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BE 
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6 
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6 
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B 
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C 


0UTPT+83,HLCA1 


866 


8 


40 


FINAL 


BE 


DBLCK 


867 


8 


41 




SW 


READS 


868 


8 


42 


FINAL2 


MCW 


OUTPT+85, LMAINX 


869 


8 


43 


SOFT 


B 


GAMMA 


870 


8 


44 


DBLCK 


CW 


READS=1 


871 


8 


45 




BW 


FlNAL2t8ALTR 


872 


8 


46 


TRPCK 


C 


0UTPT+83,HLCB 


873 


8 


47 




BE 


ALDIO 


874 


8 


48 




B 


CTAPE 


875 


8 


49 




NOP 


TDF4A 


876 


8 


50 




B 


TRPCK 


877 


8 


51 


* 






878 


8 


52 


* 




DTF ON ALTER 


879 


8 


53 


* 






880 


8 


54 


ALDTF 


SBR 


SOFT+3, DELTA 


881 


8 


55 




8 


ALDIO 


882 


8 


56 


SAVXX 


SBR 


SAVXT+3 


883 


8 


57 








884 


8 


58 


SAVXT 


B 





885 


3 


59 


LUNET 


SW 


READS 


886 


8 


60 




MCW 


•N», FINAL 


887 


8 


61 




B 


RDT4A 


888 


8 


62 


8YPSS 


SBR 


BYPSX+3 


889 


8 


63 




B 


CTAPE 


890 


8 


64 




NOP 


TDF4A 


891 


8 


65 




BCE 


BYPSS+4,0UTPT+74,Y 


892 


8 


66 




BCE 


8YPSS+4,0UTPT+74 t Z 


893 


3 


67 


8YPSX 


B 





894 


8 


68 


« 






895 


8 


69 


* 




DTF TABLE OF OPE 


896 


8 


70 


* 






897 


3 


71 




DCW 


• • i 


898 


8 


72 




DCW 


•001' 


899 


3 


73 




DCW 


•INP« 


900 


8 


74 




DCW 


•002» 


901 


8 


75 




DCW 


•OUT 1 



SFX CT LOCN INSTRUCTION TYPE CARD 



FILETYP 

INPUT 
OUTPUT 



I 


4 


3181 


t 


109 




106 


I 


7 


3185 


H 


684 


803 


106 


I 


7 


3192 


H 


M09 


COS 


107 


I 


4 


3199 


B 


642 




107 


I 


4 


3203 


/ 


086 




107 


I 


8 


3207 


V 


841 


110 1 


107 


I 


5 


3215 


B 


C34 


A 


107 


I 


1 


3220 


1 






107 


I 


7 


3221 


C 


018 


H92 


107 


I 


5 


3228 


B 


868 


/ 


108 


I 


4 


3233 


B 


C19 




108 


I 


4 


3237 


B 


R43 




108 


I 


4 


3241 


B 


C49 




108 


I 


7 


3245 


C 


195 


102 


108 


I 


5 


3252 


B 


B72 


S 


108 


I 


4 


3257 


t 


110 




108 


I 


7 


3261 


M 


197 


086 


109 


I 


4 


3268 


B 


685 




109 


I 


4 


3272 


) 


HO 




109 


I 


8 


3276 


V 


B61 


103 1 


109 


I 


7 


3284 


c 


195 


107 


109 


I 


5 


3291 


B 


B03 


S 


109 


I 


4 


3296 


B 


S22 




109 


I 


4 


3300 


N 


A35 




110 


I 


4 


3304 


B 


884 




110 



I 7 


3308 


H 


B71 


M10 


110 


I 4 


3315 


B 


B03 




110 


I 4 


3319 


H 


C33 




110 


X. 1 


3 Z>£. J 


H 


WOO 




i t n 

A AW 


I 4 


3330 


B 


000 




110 


I 4 


3334 


f 


110 




111 


I 7 


3338 


M 


108 


B52 


111 


I 4 


3345 


B 


B41 




111 


I 4 


3349 


H 


C80 




111 


I 4 


3353 


B 


S22 




111 


I 4 


3357 


N 


A35 




111 


I 8 


3361 


B 


C53 


186 Y 


111 


I 8 


3369 


B 


C53 


186 Z 


112 


I 4 


3377 


B 


000 




112 



I 


1 


3381 


I 


3 


3384 


I 


3 


3387 


I 


3 


3390 


I 


3 


3393 



112 
112 
112 
112 
112 



1401 AUTOCODER-PASS 2-PROCESS IOCS-HAIN 1 -VERSION 3 



3721L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP OPERANDS 


902 


8 


76 




OCW « 


•003* 


903 


8 


77 




DCW 


•TAP* 


904 


8 


78 




DCW ' 


» 004 • 


905 


8 


79 




DCW « 


•REA» 


906 


8 


80 




OCW ' 


'005* 


907 


8 


81 




DCW 


'PUN* 


908 


8 


82 




DCW ' 


'008* 


909 


8 


83 




DCW ■ 


'CHE» 


910 


8 


84 




DCW « 


»006» 


911 


8 


85 


FILX2 


DCW < 


»PRI» 


912 


3 


86 




DCW ' 


i t t 


913 


3 


87 




DCW ! 


'007* 


914 


8 


88 


MODXZ 


DCW « 


»LOA* 


915 


8 


89 




DCW < 


i t i 


916 


8 


90 




DCW 


•012* 


917 


8 


91 




DCW s 


»BLO* 


918 


8 


92 




DCW ' 


'013* 


919 


8 


93 




DCW < 


•UNB" 


920 


3 


94 




DCW < 


•014* 


921 


3 


95 




DCW « 


»FIX» 


922 


8 


96 




DCW ' 


'015* 


923 


8 


97 


RECX2 


DCW 


'VAR* 


924 


8 


98 




DCW « 


1 1 i 


925 


3 


99 




DCW 


'081* 


926 


9 


00 




DCW ' 


'STA* 


927 


9 


01 




DCW s 


•082* 


928 


9 


02 




DCW 


'NON* 


929 


9 


03 




DCW « 


083* 


930 


9 


04 


TYPX2 


DCW » 


» TM » 


931 


9 


05 




DCW < 


i • i 


932 


9 


06 




DCW < 


'084* 




a 


A"7 




u v# n 


1 A i 1 • 


934 


9 


08 




DCW « 


'085* 


935 


9 


09 


CHEX2 


DCW 


'IDE* 


936 


9 


10 




DCW < 


i • t 


937 


9 


11 




DCW « 


199* 


938 


9 


12 




DCW ' 


•UNL* 


939 


9 


13 




DCW < 


'200* 


940 


9 


14 


REWXZ 


DCW ' 


•NOR' 


941 


9 


15 




DCW « 


i i i 


942 


9 


16 




DCW « 


•201* 


943 


9 


17 




DCW ' 


•9 » 


944 


9 


18 




DCW ' 


•202* 


945 


9 


19 


QVEXZ 


DCW ' 


'12 • 


946 


9 


20 




DCW « 


1 1 i 


947 


9 


21 




DCW « 


'076* 


948 


9 


22 


TOTXZ 


DCW 


'REC* 


949 


9 


23 


* 






950 


9 


24 


* 




DIOCS 


951 


9 


25 


* 







TAPE 

READER 

PUNCH 



PRINTER 
MODEPAR 



RECFORH 

BLOCKED 

UNBLOCKED 

FIXED 

VARIABLE 
TYPELA8EL 

STANDARD 

NONSTANDARD 

TM 
CHECKLA8EL 



IDENT 
REWIND 

UNLOAD 

NOREWD 



SFX CT LOCN INSTRUCTION TYPE CARD 



113 
113 
113 
113 
113 
113 
113 
114 
114 
114 
114 
114 
114 
114 
115 
115 
115 
115 
115 
115 
115 
116 
116 
116 
116 
116 
116 
116 
117 
117 
117 
117 
117 
117 
117 
118 
118 
118 
118 
118 
118 
118 
119 
119 
119 
119 
119 



I 


3 


3396 


I 


3 


3399 


I 


3 


3402 


I 


3 


3405 


I 


3 


3408 


I 


3 


3411 


I 


3 


3414 


I 


3 


3417 


I 


3 


3420 


I 


3 


3423 


I 


1 


3424 


I 


3 


3427 


I 


3 


3430 


I 


1 


3431 


I 


3 


3434 


I 


3 


3437 


I 


3 


3440 


I 


3 


3443 


I 


3 


3446 


I 


3 


3449 


I 


3 


3452 


I 


3 


3455 


I 


1 


3456 


I 


3 


3459 


I 


3 


3462 


I 


3 


3465 


I 


3 


3468 


I 


3 


3471 


I 


3 


3474 


I 


1 


3475 


I 


3 


3478 


T 


■» 
j 


-> a. a i 


I 


3 


3484 


I 


3 


3487 


I 


1 


3488 


I 


3 


3491 


I 


3 


3494 


I 


3 


3497 


I 


3 


3500 


I 


1 


3501 


I 


3 


3504 


I 


3 


3507 


I 


3 


3510 


I 


3 


3513 


I 


1 


3514 


I 


3 


3517 


I 


3 


3520 



TABLE 



1401 AUTOCODER-PASS 2-PROCESS IOCS-MAIN 1 - 



SEQ 


PG 


LIN LABEL OP OPERANDS 


952 


9 


26 


DCW 


i l • 


953 


9 


27 


DCW 


-MINUS3+4 


954 


9 


28 


DCW 


'OUT* 


955 


9 


29 


DCW 


-MINUS2+4 


956 


9 


30 TAPTB DCW < 


»INP» 


957 


9 


31 


DCW ' 


i • • 


958 


9 


32 


DCW 


'045» 


959 


9 


33 


DCW ' 


•REL* 


960 


9 


34 


DCW 


'046* 


961 


9 


35 


DCW « 


»STO' 


962 


9 


36 


DCW « 


'006' 


963 


9 


37 FEAT8 DCW < 


»OVE» 


964 


9 


38 


DCW 


i t f 


965 


9 


39 


DCW * 


'007' 


966 


9 


40 


DCW < 


'TAP* 


967 


9 


41 


DCW < 


•008 1 


968 


9 


42 


DCW ' 


»REA« 


969 


9 


43 


DCW ' 


•009» 


970 


9 


44 


DCW 


'PUN* 


971 


9 


45 


DCW ' 


»010« 


972 


9 


46 IOCTB DCW ' 


»PRI« 


973 


9 


47 


DCW < 


i i t 


974 


9 


48 


DCW « 


'Oil* 


975 


9 


49 


DCW < 


•STA* 


976 


9 


50 


DCW ' 


'012' 


977 


9 


51 


DCW * 


»NON' 


978 


9 


52 


DCW ' 


'013' 


979 


9 


53 


DCW 


'MIX* 


980 


9 


54 


DCW ' 


'014' 


981 


9 


55 


DCW ' 


'CHE' 


982 


9 


56 


DCW ■ 


•015* 


983 


9 


57 


Ul/H 


• JLUC ' 


984 


9 


58 


DCW ' 


•026 1 


985 


9 


59 


DCW ' 


'RDL' 


986 


9 


60 


DCW ' 


'016« 


987 


9 


61 LA8T8 DCW 1 


»TH » 


988 


9 


62 


DCW 


i i i 


989 


9 


63 


DCW ' 


'018' 


990 


9 


64 


DCW ' 


•1 ■ 


991 


9 


65 


DCW « 


»019» 


992 


9 


66 


DCW ' 


»2 • 


993 


9 


67 


DCW < 


'020' 


994 


9 


68 


DCW 


»3 • 


995 


9 


69 


DCW < 


•021« 


996 


9 


70 


DCW « 


•4 • 


997 


9 


71 


DCW ' 


'022* 


998 


9 


72 


DCW 


»5 • 


999 


9 


73 


DCW « 


•023' 


1000 


9 


74 


DCW 


•6 • 


1001 


9 


75 


DCW < 


»024« 



OVERLAP 

TAPE 
READER 
PUNCH 
PRINTER 

STANOARD 
NONSTANDARD 
HIKED 
CHECK 



TM 

EXIT 1 
EXIT 2 
EXIT 3 
EXIT 4 
EXIT 5 
EXIT 6 



tSION 3 




3721L 


SFX CT 


LOCN INS 




I 1 


3521 




I 3 


3524 I9C 




I 3 


3527 




I 3 


3530 I9D 




I 3 


3533 




I 1 


3534 




I 3 


3537 




I 3 


3540 




I 3 


3543 




I 3 


3546 




I 3 


3549 




I 3 


3552 




I 1 


3553 




I 3 


3556 




I 3 


3559 




I 3 


3562 




I 3 


3565 




I 3 


3568 




I 3 


3571 




I 3 


3574 




I 3 


3577 




I 1 


3578 




I 3 


3581 




I 3 


3584 




I 3 


3587 




I 3 


3590 




I 3 


3593 




I 3 


3596 




I 3 


3599 




I 3 


3602 




I 3 


3605 




•r *> 


JOUO 




I 3 


3611 




I 3 


3614 




I 3 


3617 




I 3 


3620 




I 1 


3621 




I 3 


3624 




I 3 


3627 




I 3 


3630 




I 3 


3633 




I 3 


3636 




I 3 


3639 




I 3 


3642 




I 3 


3645 




I 3 


3648 




I 3 


3651 




I 3 


3654 




I 3 


3657 




I 3 


3660 



PAGE 19 



INSTRUCTION TYPE CARD 



119 
119 
120 
120 
120 
120 
120 
120 
120 
121 
121 
121 
121 
121 
121 
121 
122 
122 
122 
122 
122 
122 
122 
123 
123 
123 
123 
123 
123 
123 
124 

JLC1 

124 
124 
124 
124 
124 
125 
125 
125 
125 
125 
125 
125 
126 
126 
126 
126 
126 
126 



1401 AUTOCOCER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 



3721L 



PAGE 20 



SEQ PG LIN LABEL GP 



1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1G44 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



76 
77 

78 
79 
80 
81 
82 
83 
84 



9 85 

9 86 



87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 



10 00 
10 01 
10 02 
10 03 
10 04 
10 05 
10 06 
10 07 
10 08 
10 09 
10 10 
10 11 
10 12 
10 13 
10 14 
10 15 
10 16 
10 17 
10 18 
10 19 
10 20 
10 21 
10 22 
10 23 
10 24 
10 25 



DCW 
DCW 

EXITS DCW 
DCW 
DCW 
DCW 
DCW 

DRIT8 DCW 
DCW 
DCW 
DCW 
DCW 

RWDTB DCW 
DCW 
DCW 
DCW 
DCW 

CGUTB DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 

REATB DCW 



DCW 
DCW 
DCW 

Uk.W 

DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 
DCW 



OPERANDS 



7 

025 

8 
i i 

027 

729 

028 

733 
t i 

029 
NOR 
030 
UNL 
i * 

037 

REC 

038 

HAS 
t t 

034 
CLE 
033 
PRO 
032 
SCA 



t • 

OVE 
FOR 

VAR 
CHA 
FIL 
MOO 
CAR 
ALT 
REC 
SIZ 
PAD 
8L0 
IGA 
WOR 
IND 
EOF 
WLR 
TOT 
TYP 
CHE 



EXIT 7 
EXIT 8 

729 
7330 

NO RWED 
UNLOAD 

RECORD 
HASH 



DTF TABLE GF LABELS 



OVERFLOW 
FQRMSCNTL 

f /"!«■»/"»• 

OUDUU 

VAR8UILD 

CHANDR1VE 

FILETYPE 

HODEPAR 

CARDROC 

ALTTAPE 

RECFORM 

SIZEREC 

PADDING 

BLOCKSIZE 

IOAREAS 

WORKAREA 

INDEXREC 

EOFADDR 

WLRADDR 

TOTALS 

TYPELA8EL 

CHECKLABEL 



SFX CT LOCN INSTRUCTION TYPE CARD 



126 
127 
127 
127 
127 
127 
127 
127 
128 
128 
128 
128 
128 
128 
128 
129 
129 
129 
129 
129 
129 
129 
130 
130 
130 



130 
130 
130 

131 
131 
131 
131 
131 
131 
131 
132 
132 
132 
132 
132 
132 
132 
133 
133 
133 
133 



I 3 


3663 


I 3 


3666 


I 3 


3669 


I 1 


3670 


I 3 


3673 


I 3 


3676 


I 3 


3679 


I 3 


3682 


I 1 


3683 


I 3 


3686 


I 3 


3689 


I 3 


3692 


I 3 


3695 


I 1 


3696 


I 3 


3699 


I 3 


3702 


I 3 


3705 


I 3 


3708 


I 1 


3709 


I 3 


3712 


I 3 


3715 


I 3 


3718 


I 3 


3721 


I 3 


3724 


I 3 


3727 



I 1 


3728 


I 3 


3731 


I 3 


3734 




J 1 J i 


I 3 


3740 


I 3 


3743 


I 3 


3746 


I 3 


3749 


I 3 


3752 


I 3 


3755 


I 3 


3758 


I 3 


3761 


I 3 


3764 


I 3 


3767 


I 3 


3770 


I 3 


3773 


I 3 


3776 


I 3 


3779 


I 3 


3782 


I 3 


3785 


I 3 


3788 


I 3 


3791 



1401 AUT0C0CER-PASS 2-PRQCESS IOCS-MAIN 1 -VERSION 3 



37211 



PAGE 21 



SEQ 


PG 


LIN 


LABEL 


OP S 


DPERANDS 




1052 


10 


26 




DCW 


»HEA« 


HEADER 


1053 


10 


27 




DCW 


»SER» 


SERIALNUM 


1054 


10 


28 




DCW 


•REE* 


REELSEQ 


1055 


10 


29 


DTFLAB 


DCW 


»REW» 


REWIND 


1056 


10 


30 


# 








1057 


10 


31 


* 








1058 


10 


32 


* 




LABEL TABLE 




1059 


10 


33 


« 








1060 


10 


34 




DCW 


■ •• 




1061 


10 


35 




DCW 


•TAP* 


TAPEUSE 


1062 


10 


36 




DCW 


•CHE* 


CHECKPOINT 


1063 


10 


37 




DCW 


•DIO» 


DIOCSORG 


1064 


10 


38 




DCW 


»FEA» 


FEATURES 


1065 


10 


39 




DCW 


«IOD» 


IODEVICES 


1066 


10 


40 




DCW 


•LAB 1 


LABELDEF 


1067 


10 


41 




DCW 


•ALT' 


ALTTAPE 


1068 


10 


42 




DCW 


•EXI« 


EXITS 


1069 


10 


43 




DCW 


»VAR« 


VARBUILD 


1070 


10 


44 




DCW 


•COU 1 


COUNTS 


1071 


10 


45 




DCW 


•DRI» 


DRIVETYPE 


1072 


10 


46 




DCW 


»RWD» 


RWDOPTION 


1073 


10 


47 




DCW 


'REA' 


READERROR 


1074 


10 


48 


LBLTBL 


DCW 


•INP« 


INPFXNO 


1075 


10 


49 

652 

685 
696 
731 

802 
806 
814 


SAVXLl 

SAVX2 

HLCAl 
BALTR 
HLCB 


LTORG 
DCW 


•EX 1 

•7« 

•1 8» 

•$• 
i • 

«♦* 

•5* 

■ *T tr *- r? «- a 

«*' 

=03 

», » 
i t 

•1« 

•6« 

t i 

»DTF« 

•33333* 

•52 1 

=03 

'ALT* 

•JOB* 

•CTL* 

=04 

=01 

=04 

•N» 





SFX CT LQCN INSTRUCTION TYPE CARD 



133 
133 
133 
134 



I 


3 


3794 


I 


3 


3797 


I 


3 


3800 


I 


3 


3803 



I 1 


3804 


I 3 


3807 


I 3 


3810 


I 3 


3813 


I 3 


3816 


I 3 


3819 


I 3 


3822 


I 3 


3825 


I 3 


3828 


I 3 


3831 


I 3 


3834 


I 3 


3837 


I 3 


3840 


I 3 


3843 


I 3 


3846 


I 2 


3848 


I 1 


3849 


I 3 


3852 


I 1 


3853 


I 1 


3854 


I 1 


3855 


I 1 


3856 


t J 


1 OZ. 1 

JDOi 


I 1 


3862 


1 3 


3865 


I 2 


3867 


I 2 


3869 


I 1 


3870 


I 1 


3871 


I 5 


3876 


I 3 


3879 


I 5 


3884 


I 2 


3886 


I 3 


3889 


I 3 


3892 


I 3 


3895 


I 3 


3898 


I 4 


3902 


I 1 


3903 


I 4 


3907 


I 1 


3908 



3847 





134 




134 




134 




134 




134 




134 




135 




135 




135 




135 




135 




135 




135 




136 




136 


LIT 


136 


LIT 


136 


LIT 


136 


LIT 


136 


LIT 


136 


LIT 


137 


LIT 


137 


1 T T 
L. 1 1 


t IT 
!.-> 1 


LIT 


137 


AREA 


137 


LIT 


137 


LIT 


137 


LIT 


138 


LIT 


138 


LIT 


138 


LIT 


138 


LIT 


138 


LIT 


138 


AREA 


138 


LIT 


139 


LIT 


139 


LIT 


139 


AREA 


139 


AREA 


139 


AREA 


139 


LIT 


139 



1401 AUTGCOCER-PASS 2-PROCESS IOCS-MAIN 1 -VERSION 3 



3721L 



PAGE 



22 



SEQ PG LIN LABEL QP 



OPERANDS 







852 


XCARDS 




=01 






870 


READS 




=01 


1076 


10 


50 


* 






1077 


10 


51 


• 




OUTP 


1078 


10 


52 


* 






1079 


10 


53 




ORG 


3912 


1080 


10 


54 


GUTPT 


DA 
DCW 


1X86, G 


1081 


10 


55 


LOPUT 


EQU 


* 


1082 


10 


56 




EX 





SFX CT LOCN INSTRUCTION TYPE CARD 



3909 
3910 



I 






3912 


I 




3912 


3997 


I 


1 


3998 




I 




3998 




I 






B 000 



AREA 
AREA 



140 
140 



140 
GMARK 141 

142 



1401 AUTGCGCER-PASS 2-CGPY DTF TABLE 



-VERSION 3 



3723L 



PAGE 23 



SEQ 


PG 


LIN LABEL OP 


OPERANDS 








1083 


10 


57 


JOS 


1401 AUTOCODER-PASS 2-COPY DTF 


TABLE 


1084 


10 


58 


SFX 


I 








1085 


10 


59 


ORG 


341 








1086 


10 


60 


DCW 


* t * 








1087 


10 


61 


DCW 






EXITS YES 




1088 


10 


62 


DCW 






COBOL YES 




1089 


10 


63 


DCW 


=6 








1090 


10 


64 


dcw 




1 


INPUT 


1 


1091 


10 


65 


DCW 




2 


OUTPUT 


2 


1092 


10 


66 


DCW 




3 


TAPE 


3 


1093 


10 


67 


DCW 




4 


READER 


4 


1094 


10 


68 


DCW 




5 


PUNCH 


5 


1095 


10 


69 


DCW 




6 


PRINTER 


6 


1096 


10 


70 


DCW 




7 


LOAD 


7 


1097 


10 


71 


DCW 




8 


CHECKPOINT 


8 


1098 


10 


72 


DCW 




9 


NUMBER 


9 


1099 


10 


73 


DCW 




10 


NUMBER 


10 


1100 


10 


74 


DCW 




11 


NUMBER 


11 


1101 


10 


75 


DCW 




12 


BLOCKED 


12 


1102 


10 


76 


DCW 




13 


UNBLOCKED 


13 


1103 


10 


77 


DCW 




14 


MIXED 


14 


1104 


10 


78 


DCW 




15 


VARIABLE 


15 


1105 


10 


79 


DCW 


• i 


16-19 


NUMBER 


16 


1106 


10 


80 


DCW 


• i 


20 


NUMBER 


17 


1107 


10 


81 


DCW 


i t 


21-24 


NUMBER 


18 


1108 


10 


82 


DCW 


i i 


25- 


•34 LABELS 


19 


1109 


10 


83 


DCW 


« t 


• 35- 


44 


20 


1110 


10 


84 


DCW 


i i 


• 45-54 LABEL 


21 


1111 


10 


85 


DCW 


t i 


55 


NUMBER 


22 


1112 


10 


86 


DCW 


t i 


» 56-65 LABEL 


23 


1113 


10 


87 


DCW 


t i 


1 66- 


75 LABEL 


24 


1114 


10 


83 


DCW 


i i 


76 


r* #" ** r\ r* rx 

RCV.URU 


CO 


1115 


10 


89 


DCW 


• » 


77-8C 


HASH 


26 


1116 


10 


90 


DCW 




81 


STANDARD 


27 


1117 


10 


91 


DCW 




82 


NONSTANDARD 


28 


1118 


10 


92 


DCW 




83 


TM 


29 


1119 


10 


93 


DCW 




84 


ALL 


30 


1120 


10 


94 


DCW 




85 


IDENT 


31 


1121 


10 


95 


DCW 


• l 








1122 


10 


96 


DCW 


• f 








1123 


10 


97 


DCW 


l l 


i 






1124 


10 


98 


DCW 


t f 


104-108 NUMBER 


35 


1125 


10 


99 


DCW 




» 109- 


118 


39 


1126 


11 


00 


DCW 




' 119- 


■128 


40 


1127 


11 


01 


DCW 




' 129- 


138 


41 


1128 


11 


02 


DCW 




i 139- 


•148 


42 


1129 


11 


03 


DCW 




» 149- 


•158 


43 


1130 


11 


04 


DCW 




» 159- 


168 


44 


1131 


11 


05 


DCW 




1 169- 


178 


45 


1132 


11 


06 


DCW 




1 179- 


•188 


46 



SFX CT LOCN INSTRUCTION TYPE CARD 



-VERSION 3 



FILETYPE 



MODEPAR 

FEATURES 

CHAN DRIVE 

CARDPOC 

ALTTAPE 

RECFORM 



SIZEREC 
PADDING 
BLOCKSIZE 
IOAREAS 

WORKAREA 
INDEXREG 
EORADDR 
WLRADDR 



TYPELABEL 



CHECKLABEL 



SERIALNUM 

EX1ADDR 

EX2ADDR 

EX3ADDR 

EX4ADDR 

EX5ADDR 

EX6ADDR 

EX7ADDR 

EX8ADDR 



0341 



1 
1 
1 
6 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
4 
10 
10 
10 
1 
10 



4 

1 

1 

1 

1 

1 

3 

5 

10 

5 

10 

10 



0341 
0342 
0343 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0368 
0369 
0373 
0383 
0393 
0403 
0404 
0414 



10 0424 



0429 
0430 
0431 
0432 
0433 
0434 
0437 
0442 
0452 
0457 
0467 
0477 
10 0487 
10 0497 
0507 
0517 
0527 
0537 



10 
10 
10 
10 



145 
145 
145 
145 
145 
145 
145 
146 
146 
146 
146 
146 
146 
146 
147 
147 
147 
147 
147 
147 
147 
148 
148 
148 
148 
148 
149 
149 

l a r» 

149 
149 
149 
149 
150 
150 
150 
150 
150 
150 
150 
151 
151 
151 
152 
152 
152 
153 



1401 AUTOCODER-PASS 2-CGPY DTF TABLE 



-VERSION 3 



37231- 



PAGE 24 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1133 


11 


07 




DCW 


t 


1134 


11 


08 




DCW 


• i 


1135 


11 


09 




DCW 


i • 


1136 


11 


10 




DCW 


i • 


1137 


11 


11 




DCW 


i • 


1138 


11 


12 




DCW 


l t 


1139 


11 


13 




DCW 


I t 


1140 


11 


14 




DCW 


=9 


1141 


11 


15 




DCW 


• i 


1142 


11 


16 




DCW 


t i 


1143 


11 


17 




DCW 


t * 


1144 


11 


18 


OTFGM 


DCW 


• fl 


1145 


11 


19 




EX 





189-198 


47 


VAR8UILD 


199 UNLOAD 


37 


REWIND 


200 NOREWD 


38 




9 201 




OVERFLOW 


12 202 






203-205 NUMBER 




REELSEO 


206 




FORMCNTL 


216 ADDRESS 




OVERFLOW 



SFX CT LOCN INSTRUCTION TYPE CARD 



153 
153 
153 
153 
153 
153 
154 
154 
154 
154 
154 
154 
8 000 155 



I 


10 


0547 


I 


1 


0548 


I 


1 


0549 


I 


1 


0550 


I 


1 


0551 


I 


3 


0554 


I 


1 


0555 


I 


9 


0564 


I 


1 


0565 


I 


1 


0566 


I 


1 


0567 


I 


1 


0568 


I 







1401 AUTOCODER-PASS 2-ALTER OVERLAY 



-VERSION 3 



3724L 



PAGE 25 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1146 


11 


20 




J08 


1401 AUTOCODER-P 


1147 


11 


21 




SFX 


I 


1148 


11 


22 




ORG 


101 


1149 


11 


23 


« 






1150 


11 


24 


« 






1151 


11 


25 


* 




CTL CARO ON 


1152 


11 


26 


* 






1153 


11 


27 


PUNCH 


CW 


GM0VL2 


1154 


11 


28 




BSP 


1 


1155 


11 


29 




BSP 


1 


1156 


11 


30 




B 


ALTER 


1157 


11 


31 


OUTCL 


MCW 


0UTPT+85,LMAINX 


1158 


11 


32 




BSS 


PREPS2.C 


1159 


11 


33 


NOSOL 


SBR 


RS0LV+7,N0ALTB 


1160 


11 


34 


# 






1161 


11 


35 


* 




CTL CARD FRO 


1162 


11 


36 


* 






1163 


11 


37 


CROCL 


BCE 


LEAVE,MAINX+23,1 


1164 


11 


38 




MN 


MAINX+21,«+8 


1165 


11 


39 




BCE 


LEAVE, , 456 I » 


1166 


11 


40 




CHAIN 


2 


1167 








BCE 




1168 








BCE 




1169 


11 


41 




B 


LETBE 


1170 


11 


42 


LEAVE 


S 


SPECL 


1171 


11 


43 


LETBE 


B 


NOPCL 


1172 


11 


44 


RSCLV 


B 


WRTREC 


1173 


11 


45 




8 


WRTAL 


1174 


11 


46 


♦ 






1175 


11 


47 


NOPCL 


SBR 


NPCLX+3 


1176 


11 


48 




MCW 


»N«,ALTS2 


1177 


11 


49 




MCW 


"Pi * t AL i ^>*» 


1178 


11 


50 


NPCLX 


B 





1179 


11 


51 


NGPJB 


SBR 


NPJ8X+3 


1180 


11 


52 




SW 


ALTS1+4.ALTS3+4 


1181 


11 


53 


NPJ8X 


B 





1182 


11 


54 


NOTER 


MCW 


0UTPT+85,LMAINX 


1183 


11 


55 




B 


WRTREC 


1184 


11 


56 


CHUCK 


B 


NOALTB 


1185 


11 


57 




LTORG 
DCW 


* 

»456» 

• Mi 


1186 


11 


58 




ORG 


246 


1187 


11 


59 




DA 


1X86 


1188 


11 


60 


AREASV 


ECU 


• 


1189 


11 


61 


GM0VL2 


DCW 


i i 


1190 


11 


62 




EX 





SFX CT LOCN INSTRUCTION TYPE CARD 



-VERSION 3 



CARDS 



0101 





4 


0101 


) 


332 






158 




5 


0105 


U 


(Ul 


8 




158 




5 


0110 


u 


(Ul 


B 




158 




4 


0115 


B 


P63 






158 




7 


0119 


M 


197 


086 




158 




5 


0126 


8 


662 


C 




158 




7 


0131 


H 


182 


Q20 




158 


I 


8 


0138 


8 


167 


024 1 




159 


I 


7 


0146 


D 


022 


160 




159 


I 


8 


0153 


B 


167 


237 


MACRO 


159 


I 


1 


0161 


6 






GEN 


159 


I 


1 


0162 


B 






GEN 


159 


I 


4 


0163 


B 


171 






159 


I 


4 


0167 


S 


337 






159 


I 


4 


0171 


B 


183 






160 


I 


4 


0175 


B 


721 






160 


I 


4 


0179 


B 


+37 






160 


I 


4 


0183 


H 


204 






160 


I 


7 


0187 


M 


238 


Q67 




160 


T 
4 


"7 

1 


ni a/. 


M 

n 








1 AH 

JU \J V* 


I 


4 


0201 


B 


000 






160 


I 


4 


0205 


H 


219 






161 


I 


7 


0209 


t 


Q51 


+66 




161 


I 


4 


0216 


B 


000 






161 


I 


7 


0220 


M 


197 


086 




161 


I 


4 


0227 


B 


721 






161 


I 


4 


0231 


B 


Q20 






161 


I 






0235 








I 


3 


0237 








LIT 


161 


I 


1 


0238 








LIT 


162 


I 






0246 








I 




0246 


0331 






162 


I 




0331 












I 


1 


0332 










163 


I 






B 


000 






164 



1401 AUTOCODER - PASS 2 - END OVERLAY 



- VERSION 3 



3725L 



PAGE 



26 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1191 


11 


63 




JOB 


1401 AUTOCODER - 


1192 


11 


64 




SFX 


I 


1193 


11 


65 




ORG 


341 


1194 


11 


66 


0VLY3 


MN 


•5«»TDF6+4 


1195 


11 


73 




SBR 


L0NG+3,»N« 


1196 


11 


74 




LCA 


186»LMAINX 


1197 


11 


75 




B 


NEWWRT 


1198 


11 


76 




CK 


OUTPT+80 


1199 


11 


77 




SN 


GM0VL4 


1200 


11 


78 




MCW 


GMWMRK,GMCVL4 


1201 


11 


79 




B 


CTAPE 


1202 


11 


8C 




NOP 


TDF9 


1203 


11 


81 




CW 


GM0VL4 


1204 


11 


82 




RWD 


5 


1205 


11 


83 




B 


CTAPE 


1206 


11 


84 




NOP 


TDFSYS 


1207 


11 


85 




B 


1900 


1208 


11 


86 


TDF9 


DCW 


= 3 


1209 


11 


87 




WTW 


5,0VLY4 


1210 


11 


88 


TDFSYS 


DCW 


= 3 


1211 


11 


89 




RTW 


1,1650 


1212 


11 


92 


* 






1213 


11 


93 




LTORG 
DCW 


* 


1214 


11 


94 


0VLY4 


EQU 


*+l 


1215 


11 


95 




SFX 


X 


1216 


11 


96 


♦ END OF 


JOB 


1217 


11 


97 


* 






1218 


11 


98 




C 


CALLTX,BLANKS-2 


1219 


11 


99 




BE 


STENDX 


1220 


12 


uu 




o 


pimruv 


1221 


12 


01 


STENDX 


B 


S8R0TX 


1222 


12 


02 




RWD 


5 


1223 


12 


03 




BSP 


1 


1224 


12 


04 




BSP 


1 


1225 


12 


05 




WTM 


6 


1226 


12 


06 




RWD 


6 


1227 


12 


07 




MCW 


SYMNHX.MAINX+2 


1228 


12 


08 




LCA 


L0PUT+l,MAINX+35 


1229 


12 


09 




WT 


5,MAINX 


1230 


12 


10 




WTM 


5 


1231 


12 


11 




RWD 


4 


1232 


12 


12 




CW 


LIPUT+l,MAINX+35 


1233 


12 


13 




CW 


100 


1234 


12 


14 


BYPASX 


RT 


1,3997 


1235 


12 


15 




SW 


LOPUT+1 


1236 


12 


16 




BEF 


CBSP2X 


1237 


12 


17 




B 


BYPASX 


1238 


12 


18 


CBSP2X 


RT 


1,3997 



SFX CT LOCN INSTRUCTION TYPE CARD 



- PASS 2 - END OVERLAY 



VERSION 3 
















I 






0341 








I 


7 


0341 


D 


432 


768 




167 


I 


7 


0348 


H 


J60 


433 




167 


I 


7 


0355 


L 


186 


086 




167 


I 


4 


0362 


B 


J35 






167 


I 


4 


0366 


) 


192 






167 


I 


4 


0370 


, 


606 






167 


I 


7 


0374 


M 


773 


606 




168 


I 


4 


0381 


B 


S22 






168 


I 


4 


0385 


N 


412 






168 


I 


4 


0389 


3 


606 






168 


I 


5 


0393 


U 


(U5 


R 




168 


I 


4 


0398 


B 


S22 






168 


I 


4 


0402 


N 


423 






168 


I 


4 


0406 


B 


ZOO 






169 


I 


3 


0412 










169 


I 


8 


0413 


L 


<U5 


434 W 




169 


I 


3 


0423 










169 


I 


8 


0424 


L 


(Ul 


W50 R 




169 


I 






0432 








I 


1 


0432 








LIT 


169 


I 


1 


0433 








LIT 


169 


I 




0434 













X 


7 


0434 


C 


-73 


W14 


170 


X 


5 


0441 


B 


450 


S 


170 






n /„ /. i 

WTTW 


D 

JJ 


mo 

1 wu 




1 "7A 

M. 1 %J 


X 


4 


0450 


B 


033 




170 


X 


5 


0454 


U 


(U5 


R 


170 


X 


5 


0459 


U 


(Ul 


B 


170 


X 


5 


0464 


u 


<U1 


B 


170 


X 


5 


0469 


u 


(U6 


M 


171 


X 


5 


0474 


u 


CU6 


R 


171 


X 


7 


0479 


M 


W01 


003 


171 


X 


7 


0486 


L 


198 


036 


171 


X 


8 


0493 


M 


CU5 


001 W 


171 


X 


5 


0501 


U 


<U5 


M 


171 


X 


5 


0506 


U 


(U4 


R 


172 


X 


7 


0511 


) 


187 


036 


172 


X 


4 


0518 


) 


100 




172 


X 


8 


0522 


M 


tui 


197 R 


172 


X 


4 


0530 


, 


198 




172 


X 


5 


0534 


B 


543 


K 


172 


X 


4 


0539 


B 


522 




172 


X 


8 


0543 


M 


(Ul 


197 R 


173 



1401 AUTOCODER - PASS 2 - 



SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


1239 


12 


19 




Sw 


LOPUT+1 


1240 


12 


20 




S 


+1,C8SP1X 


1241 


12 


21 




8M 


CBSP3X.CBSP1X 


1242 


12 


22 




B 


CBSP2X 


1243 


12 


23 


* 






1244 


12 


24 


« LOAD PASS 


THREE 


1245 


12 


25 


* 






1246 


12 


26 


CBSP3X 


CS 


PARTB 


1247 


12 


27 




CS 




1248 


12 


28 




CS 




1249 


12 


29 




B 


CTAPE 


1250 


12 


30 




NOP 


TDFEOJ 


1251 


12 


31 




B 


2465 


1252 


12 


32 


TDFEOJ 


DCW 


+CCHALT 


1253 


12 


33 




RTW 


1,2210 


1254 


12 


34 


CBSP1X 


DCW 


•11' 


1255 


12 


35 


» 






1256 


12 


36 




LTORG 
DCW 


+ 1 


1257 


12 


37 


GM0VL4 


DCW 


i • 


1258 


12 


38 




EX 





END OVER 


LAY 


- VERSION 3 




3725L 


PAGE 27 






SFX 


CT 


LOCN 


INSTRUCTION TYPE CARD 






X 


4 


0551 


, 198 173 






X 


7 


0555 


S 605 604 173 






X 


8 


0562 


V 574 604 K 173 






X 


4 


0570 


B 543 173 



X 


4 


0574 


/ 466 


173 


X 


1 


0578 


/ 


173 


X 


1 


0579 


/ 


174 


X 


4 


0580 


B W50 


174 


X 


4 


0584 


N 594 


174 


X 


4 


0588 


B H65 


174 


X 


3 


0594 


Y34 


174 


X 


8 


0595 


L (Ul K10 R 


174 


X 


2 


0604 




174 


X 






0605 




X 


1 


0605 


LIT 


175 


X 


1 


0606 




175 


X 






B 000 


176 



14C1 AUTOCODER - PASS 2 - ALTER ASSEMBLY - VERSION 3 



3728L 



PAGE 28 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




1259 


12 


39 




JOS 


1401 AUTOCODER - 


1260 


12 


40 


* 








1261 


12 


41 


» AREA DEFINITIONS 




1262 


12 


42 


* 








1263 


12 


43 




SFX 


B 




1264 


12 


44 




ORG 


1 




1265 


12 


45 




DA 


1X86 


MAIN 


1266 


12 


46 




EQU 


» 


LMAIN 


1267 


12 


47 




ORG 


87 




1268 


12 


48 




DCW 


000 


INCEX1 


1269 


12 


49 




DC 


00 




1270 


12 


50 




DCW 


000 


INDEX2 


1271 


12 


51 




DC 


00 




1272 


12 


52 




DCW 


000 


INCEX3 


1273 


12 


53 




DC 


00 




1274 


12 


54 




ORG 


100 




1275 


12 


55 




DC 


f f 




1276 


12 


56 




DA 


1X86 


INPUT 


1277 


12 


57 




DC 


t i 


LIPUT+1 


1278 


12 


58 




DC 





ZEROX 


1279 


12 


59 




DC 





CARDSX 


1280 


12 


60 




DCW 


• *»* • 


HLCSBX 


1281 


12 


61 


* 








1282 


12 


62 


* 


INITIALIZATION 


1283 


12 


63 


* 








1284 


12 


64 




ORG 


101 




1285 


12 


65 


VOICE 


cs 


CALLTX 




1286 


12 


66 




cs 






1287 


12 


67 


IOCALT 


cs 


LMAINX 




1288 


12 


68 




B 


CTAPEX 




1289 


12 


69 




NOP 


TDFI05 




±£.V\J 








r> f f 


lugcurjnHimAAT i ji 


1291 


12 


71 




B 


YOURS 




1292 


12 


72 


TDFIC5 


DCW 


+IGCEOF 




1293 


12 


73 




RT 


StMAINXX 




1294 


12 


74 


IOCEOF 


MCW 


U 1 tHAPPYX+4 


1295 


12 


75 




MCW 


»/086» 




1296 


12 


76 




B 


OKAY 




1297 


12 


77 


STRING 


CS 


LMAINX 




1298 


12 


78 




B 


CTAPEX 




1299 


12 


79 




NOP 


TDFI05 




1300 


12 


80 




B 


HAPPYX+5 




1301 


12 


81 




LTORG 

DCW 


* 

•1* 

«/086* 




1302 


12 


82 


• 








1303 


12 


83 


* PARAMETER TABLE 




1304 


12 


84 


• 








1305 


12 


85 




ORG 


201 




1306 


12 


86 




DA 


1X266 





SFX CT LOCN INSTRUCTION TYPE CARD 



- ALTER ASSEMBLY - VERSION 3 



B 






0001 


B 




0001 


0086 


B 




0086 




B 






0087 


B 


3 


0089 




B 


2 


0091 




B 


3 


0094 




B 


2 


0096 




B 


3 


0099 




B 


2 


0101 




B 






0100 


B 


1 


0100 




8 




0101 


0186 


B 


1 


0187 




B 


1 


0188 




B 


1 


0189 




B 


3 


0192 




B 






0101 


B 


4 


0101 


/ -73 


B 


1 


0105 


/ 


& 


4 


0106 


/ 086 


8 


4 


0110 


8 W50 


B 


4 


0114 


N 132 


o 


a 


VJ J. A. W 


Q 1/.1 ft "Til Kl 

KJ AT*. Mi-T 11 


B 


4 


0126 


B 541 


8 


3 


0132 


141 


B 


8 


0133 


M (U5 001 R 


B 


7 


0141 


M 172 N74 


8 


4 


0148 


M 176 


B 


4 


0152 


B 467 


B 


4 


0156 


/ 086 


B 


4 


0160 


B W50 


B 


4 


0164 


N 132 


B 


4 


0168 


B N75 


B 






0172 


B 


1 


0172 




B 


4 


0176 





LIT 
LIT 



179 



179 
179 
179 
179 
179 
179 

180 
180 
181 
181 
181 
181 



182 
182 
182 
182 
182 

1 QO 

a w *_ 

182 
183 
183 
183 
183 
183 
183 
183 
184 
184 

184 
184 



0201 



0201 
0466 



184 
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SEQ PG LIN LABEL OP 



LJ r t i\ * fx L» o 



1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 

i *% ** r% 

1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 



12 87 

12 88 

12 89 

12 90 

12 91 

12 92 

12 93 

12 94 

12 95 

12 96 

12 97 

12 98 

12 99 

13 00 
13 01 
13 02 
13 03 
13 04 
13 05 
13 06 
13 07 
13 08 
13 09 
13 10 
13 11 
13 12 
13 13 
13 14 
13 15 
13 16 
13 17 

13 19 

13 20 

13 21 

13 22 

13 23 

13 24 

13 25 

13 26 

13 27 

13 28 

13 29 

13 30 

13 31 

13 32 

13 33 

13 34 

13 35 

13 36 



261,266 PART8B 
PROCESS EX 



FX CT 


LOCN 


INSTRUCTION TYPE CARD 


8 


0466 


FIELD 184 



* 

OKAY 

EXSET 

ATLSA 

LORGS 

PREEM 

* 

* 

* 

CMALT 



CAROS 



YOURS 



ALTR4 



CALTR 



ALTR3 



ALTR5 



ALTR6 



S8R SW'ITCH+3,CMALTB 

C CALLTX,BLANKS-2 

BE PREEM 

B SUREXX 

B PREEM 

C CALLTX,BLANKS-2 

BU HAULIT 

B CARDS 

INPUT ROUTINE 



!. ANY CALLS 



Q. ANY CALLS 



BSS 

8SS 

CS 

R 

SBR 

MCW 

MCW 

MCW 

C 

BCE 

BU 

S 

B 

ZA 

B 

NOP 

nun 

SW 

C 

BE 

C 

BE 

B 

NOP 

B 

BCE 

B 

NOP 

B 

B 

2A 

C 

BE 

B 

NOP 



LSTCD,C 
LSTCD,A 

LMAINX 

PREEM+3,SBRCTX 
•SCR' ,CHARCR 



MAINXX+17,'ALT« 

TREAD, MAINXX+5,* 

TREAD 

INDEX1+1 

SCANXX 

MAINXX+18+X1,HLDA1= 

CTAPEX 

TDFRAL 

' i\ * t uu * r i ATot 

LOPUTX+1 

0UTPTX+83,HLDA1 

ALTR3 

QUTPTX+17, , END' 

ENDST 

CTAPEX 

TDF6 X 

ALTR4 

ALTR5,MAINXX+19+X1, 

CTAPEX 

TDF6 X 

SWITCH 

SCANXX 

MAINXX+18+X1,HLDA1 

0UTPTX+83,HLDA1 

MACRO 

CTAPEX 

TDFRAL 



Q. NO ALTERS 

Q. NO MORE ALTERS 



GET NEXT RECORD 



Q. ALTER NUMBER EQUAL TO 
NUMBER ON ALTER CARD 
NO, WRITE TAPE 



Q. DLEETION 



B 


7 


0467 


H 


L04 


510 


185 


B 


7 


0474 


C 


-73 


W14 


185 


B 


5 


0481 


B 


506 


S 


185 


8 


4 


0486 


B 


T08 




185 


B 


4 


0490 


B 


506 




185 


B 


7 


0494 


C 


-73 


W14 


185 


B 


5 


0501 


B 


S64 


/ 


185 


B 


4 


0506 


B 


525 




186 



DELETE UNTIL SECOND ALTER 
NUMBER IS REACHED 



B 


5 


0510 


B 


686 


C 


186 


B 


5 


0515 


B 


686 


A 


186 


B 


4 


0520 


/ 


086 




186 


B 


1 


0524 


1 






186 


B 


7 


0525 


H 


509 


033 


186 


B 


7 


0532 


M 


*15 


U62 


186 


B 


1 


0539 


M 






187 


B 


1 


0540 


M 






187 


B 


7 


0541 


C 


018 


+ 18 


187 


B 


8 


0548 


B 


697 


006 * 


187 


B 


5 


0556 


B 


697 


/ 


187 


8 


4 


0561 


S 


090 




187 


B 


4 


0565 


B 


M19 




187 


B 


7 


0569 


+ 


0/9 


4=22 


188 


B 


4 


0576 


B 


W50 




188 


B 


4 


0580 


N 


922 




188 


8 


i 


ACfl/. 




+ C 2 


t e\± 

1 70 


loo 


B 


4 


0591 


t 


198 




188 


B 


7 


0595 


C 


195 


*22 


188 


B 


5 


0602 


B 


631 


S 


188 


B 


7 


0607 


C 


129 


4=26 


189 


B 


5 


0614 


B 


*02 


S 


189 


B 


4 


0619 


B 


W50 




189 


B 


4 


0623 


N 


024 




189 


B 


4 


0627 


8 


576 




189 


B 


8 


0631 


B 


651 


OSO , 


189 


B 


4 


0639 


B 


W50 




189 


8 


4 


0643 


N 


024 




190 


B 


4 


0647 


B 


L01 




190 


B 


4 


0651 


B 


M19 




190 


B 


7 


0655 


+ 


0/9 


*22 


190 


B 


7 


0662 


C 


195 


*22 


190 


B 


5 


0669 


B 


931 


S 


190 


B 


4 


0674 


B 


W50 




190 


B 


4 


0678 


N 


922 




191 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 






1357 


13 


37 




8 


ALTR6 






1358 


13 


38 


LSTCD 


MCW 


«N»»CALTR 






1359 


13 


39 




B 


ALTR4 






1360 


13 


40 


• 










1361 


13 


41 


# 




MAJOR PROCESSING 






1362 


13 


42 


* 










1363 


13 


43 


TREAD 


SW 


1 






1364 


13 


44 




SBR 


BRNCHX+3, SWITCH 






1365 


13 


45 




BCE 


H0MEXX,MAINXX+5 f * 






1366 


13 


46 




C 


MAINXX + ^.'MLC* 






1367 


13 


47 




BE 


HQMEXX 






1368 


13 


48 




C 


MAINXX+17, »CHA« 






1369 


13 


49 




BE 


CHAINX 






1370 


13 


50 




C 


MAINXX+17,»ENT« 


Q. 


ENTER CARD 


1371 


13 


51 




BE 


ENTST 






1372 


13 


52 


SWMA1 


C 


MAINXX+17,»MA » 


Q. 


MODIFY ADDRESS MACRO 


1373 


13 


53 


SWMA2 


BE 


MASETX 






1374 


13 


54 




C 


MAINXX+17,*£X • 


Q* 


EX CARD 


1375 


13 


55 




BE 


EXSET 






1376 


13 


56 




C 


MAINXX + U^ENO* 


Q. 


END CARD 


1377 


13 


57 




BE 


ENDSTX 






1378 


13 


58 




C 


MAINXX+18, WHOOPS 


Q. 


CALL STATEMENT 


1379 


13 


59 




BE 


CALLNX 






1380 


13 


60 




C 


MAINXX+19,INCLDX 






1381 


13 


61 




BE 


CALLNX 






1382 


13 


62 




C 


MAINXX+19,LITGRG-1 






1383 


13 


63 




BE 


LORGS 






1384 


13 


64 




SBR 


IND£X3f TABLEI 


Q. 


GET, PUT, OPEN OR CL 


1385 


13 


65 


COM IOC 


C 


MAINXX+17,0+X3 






1386 


13 


66 




SBR 


INDEX3 






1387 


13 


67 




BE 


MSU8TX 






IIOO 

a jo a 




£. a 




ttfTL 


nuTrnr A j_ vtj — 






1389 


13 


69 




B 


COMIOC 






1390 


13 


70 


OUTIOC 


BCE 


HQMEXX, MAINXX+19, 






1391 


13 


71 




BCE 


HOMEXX.MAINXX+15, 






1392 


13 


72 




B 


MSU8TX 


NO* 


. MACRO 


1393 


13 


73 


* 










1394 


13 


74 


* 


PROCESS FIXED FORM RECORD 






1395 


13 


75 


* 










1396 


13 


76 


ENTST 


B 


SBROTX 






1397 


13 


77 




R 








1398 


13 


78 




BCE 


ENTST, MAINXX+7,* 






1399 


13 


79 




C 


MAINXX+15, «END» 


Q. 


END CARD 


1400 


13 


80 




BE 


ENDSTX 






1401 


13 


81 




C 


MAINXX+15,'ENT« 


Q. 


NEW MODE 


1402 


13 


82 




BU 


ENTST 






1403 


13 


83 




B 


PREEM 






1404 


13 


84 


TDFRAL 


DCW 


000 






1405 


13 


85 




DCW 


*M«U4I12R» 






1406 


13 


86 


* 











SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


B 


4 


0682 


B 662 


191 


B 


7 


0686 


M #27 602 


191 


B 


4 


0693 


B 576 


191 



B 


4 


0697 


» 


001 




B 


7 


0701 


H 


099 


L01 


B 


8 


0708 


B 


048 


006 » 


8 


7 


0716 


C 


018 


#30 


& 


5 


0723 


B 


048 


S 


B 


7 


0728 


C 


018 


#33 


B 


5 


0735 


B 


Hll 


S 


B 


7 


0740 


C 


018 


#36 


B 


5 


0747 


B 


879 


S 


B 


7 


0752 


C 


018 


*39 


8 


5 


0759 


B 


U33 


S 


B 


7 


0764 


C 


018 


*42 


B 


5 


0771 


B 


474 


S 


8 


7 


0776 


C 


018 


#26 


B 


5 


0783 


B 


U78 


S 


B 


7 


0788 


C 


019 


W05 


B 


5 


0795 


B 


J51 


S 


B 


7 


0800 


C 


020 


U59 


B 


5 


0807 


B 


J51 


S 


B 


7 


0812 


C 


020 


T57 


B 


5 


0819 


B 


494 


S 


B 


7 


0824 


H 


099 


T74 


B 


7 


0831 


C 


018 


0*0 


B 


4 


0838 


H 


099 




8 


5 


0842 


B 


POO 


S 


U 


a 
o 


A r» A T 
K/Q-T 1 


o 
u 






B 


4 


0855 


B 


831 




B 


8 


0859 


B 


048 


020 


B 


8 


0867 


B 


048 


016 


8 


4 


0875 


B 


POO 





191 
191 
191 
192 
192 
192 
192 
192 
192 
193 
193 
193 
193 
193 
193 
194 
194 
194 
194 
194 
194 
195 
195 
195 
195 

1 ftC 

195 
196 
196 
196 



B 


4 


0879 


B 033 


196 


B 


1 


0883 


1 


196 


B 


8 


0884 


B 879 008 * 


196 


B 


7 


0892 


C 016 #26 


197 


B 


5 


0899 


B U78 S 


197 


B 


7 


0904 


C 016 #36 


197 


B 


5 


0911 


B 879 / 


197 


B 


4 


0916 


B 506 


197 


B 


3 


0922 




197 


B 


8 


0930 




197 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1407 


13 


87 


* DELETE 


ENTIRE MACRO 


1408 


13 


88 


* 






1409 


13 


89 


MACRO 


BCE 


OUTMC, 0UTPTX+74,R 


1410 


13 


90 




B 


SWITCH 


1411 


13 


91 


OUTMC 


B 


CTAPEX 


1412 


13 


92 




NOP 


TOFRAL 


1413 


13 


93 




C 


0UTPTX+19 f 8LANKS 


1414 


13 


94 


MCGUT 


BE 


OUTMC 


1415 


13 


95 




MCW 


*N*,MCOUT 


1416 


13 


96 




BCE 


OUTMC, 0UTPTX+74,S 


1417 


13 


97 




BCE 


OUTMC, 0UTPTX+74,C 


1418 


13 


98 




BSP 


4 


1419 


13 


99 




MCW 


OUTMC, MCOUT 


1420 


14 


00 




B 


CMALT 


1421 


14 


01 


* 






1422 


14 


02 


* PROCESS 


END CARD 


1423 


14 


03 


« 






1424 


14 


04 


ENDST 


MCW 


LOPUTX,LMAINX 


1425 


14 


05 




B 


ENDSTX 


1426 


14 


06 




LTORG * 










DCW 


•SCR* 
'ALT' 




1 


L335 


HLDA1 




=04 
•R« 

'END* 






















•N» 












»MLC» 












•CHA« 












•ENT» 












•MA • 












•EX • 


1 /. *»TT 


» /. 


« -i 


ru *» v w 


n/~y 


• f 


i-T*. t 


i-r 


V 1 


OntflAA 


uv*n 




1428 


14 


08 


NUORIG 


EQU 


*+l 


1429 


14 


09 




EX 





SFX CT LOCN INSTRUCTION TYPE CARD 



B 


8 


0931 


B 


943 186 


R 


198 


B 


4 


0939 


B 


L01 




198 


B 


4 


0943 


B 


W50 




198 


B 


4 


0947 


N 


922 




198 


B 


7 


0951 


C 


131 W16 




198 


B 


5 


0958 


B 


943 S 




198 


8 


7 


0963 


M 


+27 958 




198 


B 


8 


0970 


B 


943 186 


S 


199 


B 


8 


0978 


B 


943 186 


C 


199 


B 


5 


0986 


U 


!U4 B 




199 


B 


7 


0991 


M 


943 958 




199 


B 


4 


0998 


B 


510 




199 



B 


7 


1002 


M 


197 086 




199 


B 


4 


1009 


B 


U78 




200 


B 








1013 






B 


3 


1015 






LIT 


200 


B 


3 


1018 






LIT 


200 


B 


4 


1022 






AREA 


200 


B 


1 


1023 






LIT 


200 


B 


3 


1026 






LIT 


200 


B 


1 


1027 






LIT 


200 


B 


3 


1030 






LIT 


201 


B 


3 


1033 






LIT 


201 


8 


3 


1036 






LIT 


201 


8 


3 


1039 






LIT 


201 


B 


3 


1042 






LIT 


201 


a 

a 














B 




1044 










B 






B 


000 




202 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1430 


14 


10 




JOB 


1401 AUTOCODER - PASS 2 - INITIAL 


1431 


14 


11 


* 






1432 


14 


12 


* 


AREA DEFINITION 


1433 


14 


13 


* 






1434 


14 


14 




SEX 


A 


1435 


14 


15 




ORG 


1 


1436 


14 


16 


MAINXX 


DA 


1X86 


1437 


14 


17 




ORG 


87 


1438 


14 


18 




DCW 


• OOO 1 


1439 


14 


19 




DC 


00 


1440 


14 


20 




DCW 


•000* 


1441 


14 


21 




DC 


00 


1442 


14 


22 




DCW 


•000» 


1443 


14 


23 




DC 


00 


1444 


14 


24 




ORG 


101 


1445 


14 


25 




DA 


1X86 INPUTX 


1446 


14 


26 


LIPUTX 


ECU 


• 


1447 


14 


27 




DC 


t t 


1448 


14 


28 


ZEROXX 


DC 





1449 


14 


29 


CARCSX 


DC 





1450 


14 


30 


HLDS8X 


DCW 


* #**« 


1451 


14 


31 


# 






1452 


14 


32 


♦ INITIALIZATION 


1453 


14 


33 


* 






1454 


14 


34 




ORG 


100 


1455 


14 


35 




DC 


• • 


1456 


14 


36 


START 


CS 


CALLTX 


1457 


14 


37 




CS 




1458 


14 


371 




BCE 


*+5,CARDSX,l 


1459 


14 


372 




B 


RED 


1460 


14 


373 




MCW 


•NSRHO+l 


1461 


14 


374 




MCW 


■ n a t c T T" »t > c 


1462 


14 


380 


RED 


SW 


NTPER+4 


1463 


14 


39 




sw 


TSTEN+4 


1464 


14 


40 




SW 


0UTS2+4 


1465 


14 


41 




BCE 


REACT, IOCSAV-3,* 


1466 


14 


42 




MCW 


»N»»SWMA1 


1467 


14 


43 




MCW 


•NSSWMA2 


1468 


14 


44 




B 


REACT 


1469 


14 


45 




ORG 


201 


1470 


14 


46 




DA 


1X266 


1471 


14 


47 


PARTBX 




261,266 


1472 


14 


48 


* 






1473 


14 


49 


* MAJOR PROCESSING 


1474 


14 


50 


« 






1475 


14 


51 


REACT 


B 


TWEDB GET NEXT RECORD 


1476 


14 


52 


TREAD 


SW 


1 


1477 


14 


53 




SBR 


BRNCHX+3, REACT 


1478 


14 


54 




BCE 


0UTS2,MAINXX+5»* Q. COMMENTS CAR 


1479 


14 


55 




C 


MAINXX+19, 'CHAIN 1 



SFX CT LOCN INSTRUCTION TYPE CARD 



A 






0001 


A 




0001 


0086 


A 






0087 


A 


3 


0089 




A 


2 


0091 




A 


3 


0094 




A 


2 


0096 




A 


3 


0099 




A 


2 


0101 




A 






0101 


A 




0101 


0186 


A 




0186 




A 


1 


0187 




A 


1 


0188 




A 


1 


0189 




A 


3 


0192 





205 

205 
205 
205 
205 
205 
205 

205 

206 
206 
206 
206 



A 






0100 






A 


1 


0100 








207 


A 


4 


0101 


/ 


-73 




207 


A 


1 


0105 


/ 






207 


A 


8 


0106 


B 


118 


189 1 


207 


A 


4 


0114 


B 


132 




207 


A 


7 


0118 


M 


959 


764 


208 


A 


~T 

1 


W J. t. -* 


u 
rt 


7 J 3» 


-ran 


208 


A 


4 


0132 


t 


885 




208 


A 


4 


0136 


t 


779 




208 


A 


4 


0140 


t 


762 




208 


A 


8 


0144 


B 


467 


H07 * 


208 


A 


7 


0152 


M 


959 


526 


209 


A 


7 


0159 


M 


959 


533 


209 


A 


4 


0166 


B 


467 




209 


A 






0201 






A 




0201 


0466 




209 


A 




0466 






FIELD 


209 



A 


4 


0467 


B 


653 




210 


A 


4 


0471 


, 


001 




210 


A 


7 


0475 


H 


099 


467 


210 


A 


8 


0482 


B 


758 


006 * 


210 


A 


7 


0490 


C 


020 


964 


210 
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SEQ 


PG 


UN 


LABEL 


OP 


OPERANDS 






1480 


14 


56 




BE 


CHAINX 






1481 


14 


57 




C 


MAINXX+19, , MLCWA« 






1482 


14 


58 




BE 


OUTS2 






1483 


14 


59 




C 


MAINXX+17,«ENT» 


Q. 


ENTER CARD 


1484 


14 


60 




BE 


ENTST 






1485 


14 


61 


SWMA1 


c 


MAINXX+19, *MA * 


Q. 


MODIFY ADDRESS MACRO 


1486 


14 


62 


SWMA2 


BE 


MASETX 






1487 


14 


63 




C 


MAINXX+19,«EX • 


Q. 


EX CARD 


1488 


14 


64 




BE 


EXSET 






1489 


14 


65 




C 


MAINXX+17,«EN0» 


Q. 


END CARD 


1490 


14 


66 




BE 


ENDSTX 






1491 


14 


67 




C 


MAINXX+18, WHOOPS 






1492 


14 


68 




BE 


CALLNX 


0. 


CALL STATEMENT 


1493 


14 


69 




C 


MAINXX+19,INCLDX 






1494 


14 


70 




BE 


CALLNX 






1495 


14 


71 




C 


MAINXX+19, «LT0RG» 






1496 


14 


72 




BE 


LORGS 


Q. 


LTORG CARD 


1497 


14 


73 




SBR 


INDEX3,TAELEI 






1498 


14 


74 


FEW 


C 


MAINXX+17,0+X3 






1499 


14 


75 




SBR 


IN0EX3 






1500 


14 


76 




BE 


MSUBTX 






1501 


14 


77 




BCE 


MANY,0+X3,= 






1502 


14 


78 




B 


FEW 






1503 


14 


79 


MANY 


BCE 


0UTS2,MAINXX+19, 






1504 


14 


80 




BCE 


0UTS2,MAINXX+15, 






1505 


14 


81 




B 


MSUBTX 


NO. 


. MACRO 


1506 


14 


82 


* 










1507 


14 


83 


* 


INPUT 


ROUTINE 






1508 


14 


84 


* 










1509 


14 


85 


TWEOB 


SBR 


TWCB1+3 






1510 


14 


86 




CS 


LMAINX 






1 CI 1 

X'J i, A 




O I 




o 
o 


n t t.s c r» 
i\ I ncu 






1512 


14 


88 


CHART 


c 








1513 


14 


89 




BSS 


E0F4, A 


Q. 


LAST CARD 


1514 


14 


90 




R 








1515 


14 


91 




SSB 


TWDB1,I 






1516 


14 


92 


RTWED 


B 


CTAPEX 






1517 


14 


93 




NOP 


TDF4 






1518 


14 


94 




BCE 


CHANGE, MAINXX+73.N 






1519 


14 


95 


TWCB1 


B 


TREAD 






1520 


14 


96 


TDF4 


DCW 


+ E0F4 






1521 


14 


97 




DCW 


•M(U5001R* 






1522 


14 


98 


CHANGE 


cw 


CHART, TSTEN+4 






1523 


14 


99 




MN 


•4STDF4+4 






1524 


15 


00 




cw 


0UTS2+4.NTPER+4 






1525 


15 


01 




c 


CALLTX, BLANK 






1526 


15 


02 




BE 


HOOHA 






1527 


15 


03 




B 


SUREXX 






1528 


15 


04 


H0GHA 


MCW 


«SCR»,CHARCR 






1529 


15 


05 




MCW 









SFX 


CT 


LOCN 


INSTRUCTION TY 


PE CARD 


A 


5 


0497 


B 


Hll 


S 


210 


A 


7 


0502 


C 


020 


969 


211 


A 


5 


0509 


B 


758 


S 


211 


A 


7 


0514 


C 


018 


972 


211 


A 


5 


0521 


B 


795 


S 


211 


A 


7 


0526 


C 


020 


977 


211 


A 


5 


0533 


B 


U33 


S 


211 


A 


7 


0538 


C 


020 


982 


212 


A 


5 


0545 


B 


857 


S 


212 


A 


7 


0550 


C 


018 


985 


212 


A 


5 


0557 


B 


U78 


S 


212 


A 


7 


0562 


C 


019 


W05 


212 


A 


5 


0569 


B 


J51 


S 


212 


A 


7 


0574 


C 


020 


U59 


213 


A 


5 


0581 


B 


J51 


S 


213 


A 


7 


0586 


C 


020 


990 


213 


A 


5 


0593 


B 


918 


S 


213 


A 


7 


0598 


H 


099 


T74 


213 


A 


7 


0605 


C 


018 


0+0 


213 


A 


4 


0612 


H 


099 




214 


A 


5 


0616 


B 


POO 


S 


214 


A 


8 


0621 


B 


633 


0+0 = 


214 


A 


4 


0629 


B 


605 




214 


A 


8 


0633 


B 


758 


020 


214 


A 


8 


0641 


B 


758 


016 


214 


A 


4 


0649 


B 


POO 




215 



A 


4 


0653 


H 


696 




A 


4 


0657 


/ 


086 




* 






n 
O 


O f 1 




A 


1 


0665 


c 






A 


5 


0666 


B 


934 


A 


A 


1 


0671 


1 






A 


5 


0672 


K 


693 


1 


A 


4 


0677 


B 


W50 




A 


4 


0681 


N 


699 




A 


8 


0685 


B 


708 


074 N 


A 


4 


0693 


B 


471 




A 


3 


0699 


934 




A 


8 


0707 








A 


7 


0708 


) 


665 


779 


A 


7 


0715 


D 


991 


703 


A 


7 


0722 


) 


762 


885 


A 


7 


0729 


C 


-73 


999 


A 


5 


0736 


B 


745 


S 


A 


4 


0741 


B 


T08 




A 


7 


0745 


M 


994 


U62 


A 


1 


0752 


M 







215 
215 
215 
215 
215 
215 
216 
216 
216 
216 
216 
216 
216 
217 
217 
217 
217 
217 
217 
218 
218 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 






1530 


15 


06 




MCW 








1531 


15 


07 




B 


TWDB1 






1532 


15 


08 


* 










1533 


15 


09 


* 


READ 


RELEASE 






1534 


15 


10 


* 










1535 


15 


11 


0UTS2 


BSS 


OUTSBXtC 


G. 


TAPE INPUT 


1536 


15 


12 


RHC 


NOP 








1537 


15 


13 




MCW 


*8',RHO 






1538 


15 


14 




B 


OUTSBX 






1539 


15 


15 


* 










1540 


15 


16 


* FIXED 


FORM RECORDS 






1541 


15 


17 


* 










1542 


15 


18 


TSTEN 


BSS 


ENTSTtC 


Q. 


TAPE INPUT 


1543 


15 


19 




SRF 




NO, 


. START RAD FEED 


1544 


15 


20 




SBR 


NOSIR+3, ANTST 






1545 


15 


21 




MCW 


•N« tBUTlXX 






1546 


15 


22 


ENTST 


B 


SBROTX 






1547 


15 


23 




B 


TWEDB 






1548 


15 


24 


ANTST 


MCW 


•B«,BUT1XX 






1549 


15 


25 




SBR 


NOSIR+3, TREAD 






1550 


15 


26 




BCE 


TSTEN, MAINXX+7,* 


* 




1551 


15 


27 




C 


MAINXX+15,»END« 


Q. 


END CARD 


1552 


15 


28 




BE 


ENDSTX 






1553 


15 


29 




C 


MAINXX+15,»ENT' 


Q. 


NEW MODE 


1554 


15 


30 




BU 


TSTEN 






1555 


15 


31 




B 


SBROTX 






1556 


15 


32 




B 


READT 






1557 


15 


33 


* 










1558 


15 


34 


* PROCESS EX 






1559 


15 


35 


* 










1560 


15 


36 


EXSET 


C 


CALLTX,BLANK=3 


q. 


ANY CALLS 










DC 








1562 


15 


38 




B 


SUREXX 






1563 


15 


39 




B 


SBROTX 






1564 


15 


40 




B 


READT 






1565 


15 


41 


• 










1566 


15 


42 


* READ RELEASE REDUNDANCY 


ROUTINE 


1567 


15 


43 


* 










1568 


15 


44 


NTPER 


BSS 


YESIR, C 


Q. 


TAPE INPUT 


1569 


15 


45 




R 








1570 


15 


46 




SS 


1 






1571 


15 


47 




MCW 


•N»,RHG 






1572 


15 


48 


YESIR 


SBR 


CCMETS+3,CRWRED 






1573 


15 


49 




SBR 


CCONPR+3, NOSIR 






1574 


15 


50 




B 


CRWRED 






1575 


15 


51 


NOSIR 


B 


TREAD 






1576 


15 


52 


• 










1577 


15 


53 


* 


PROCESS LTORG 






1578 


15 


54 


* 










1579 


15 


55 


LORGS 


C 


CALLTX,8LANK 


Q. 


ANY CALLS 



SFX CT LOCN INSTRUCTION TYPE CARD 



0753 
0754 



M 

8 693 



218 
218 



A 


5 


0758 


B 041 C 


218 


A 


1 


0763 


N 


218 


A 


7 


0764 


M 995 763 


218 


A 


4 


0771 


B 041 


219 



A 


5 


0775 


B 


795 


C 


219 


A 


1 


0780 


8 






219 


A 


7 


0781 


H 


917 


803 


219 


A 


7 


0788 


M 


959 


037 


219 


A 


4 


0795 


B 


033 




219 


A 


4 


0799 


B 


653 




219 


A 


7 


0803 


M 


996 


037 


220 


A 


7 


0810 


H 


917 


471 


220 


A 


8 


0817 


B 


775 


008 * 


220 


A 


7 


0825 


C 


016 


985 


220 


A 


5 


0832 


B 


U78 


S 


220 


A 


7 


0837 


C 


016 


972 


221 


A 


5 


0844 


B 


775 


/ 


221 


A 


4 


0849 


B 


033 




221 


A 


4 


0853 


B 


467 




221 



A 


7 


0857 


C 


-73 999 


221 


A 








7Ko C 
1 -*o -J 




A 


4 


0869 


B 


T08 


221 


A 


4 


0873 


B 


033 


222 


A 


4 


0877 


B 


467 


222 



A 


5 


0881 


B 896 


C 


222 


A 


1 


0886 


1 




222 


A 


2 


0887 


K 1 




222 


A 


7 


0889 


M 959 


763 


222 


A 


7 


0896 


H X65 


X71 


222 


A 


7 


0903 


H X70 


914 


223 


A 


4 


0910 


B X71 




223 


A 


4 


0914 


8 471 




223 



0918 C -73 999 



223 
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S£Q 


PG 


LIN 


LABEL 


OP 


OPERANDS 




1580 


15 


56 




8U 


HAULIT 




1581 


15 


57 




B 


0UTS2 




1582 


15 


58 


E0F4 


CS 


LMAINX 




1583 


15 


59 




SW 


1 




1584 


15 


60 




MCW 


«£ND$$$«,MAINXX+18 




1585 


l5 


61 




B 


ENDSTX 




1586 


15 


62 


ANTPER 


DCW 


+NTPERA 




1587 


15 


63 


AGREED 


DCW 


+CRWRED 




1588 


15 


64 




LTORG * 












DCW 


«N« 








L479 






•CHAIN' 








L481 






•MLCWA* 

«ENT« 






] 


L485 






•MA • 








L487 






•EX • 
•END* 








L495 






•LTORG* 

•4« 

•SCR 1 


























•8» 














•B» 






J 


1560 


BLANK 




=03 






1 


L584 






»END$$$« 




1589 


15 


65 


* 








1590 


15 


66 


* MAIN LINE PROCESSING ANNEX 




1591 


15 


67 


* 








1592 


15 


68 




SFX 


X 




1593 


15 


69 




ORG 


NUORIG 




1594 


15 


70 


E0F1B 


RWD 


1 




1595 


15 


71 




S 


PREVS 




1596 


15 


72 




B 


SWITCH 




1 tr *"»•«» 
13> 1 


i3 


t 3 


ir 








1598 


15 


74 


* PROCESS 


LOZENGEO FIELD 6 - 


- 20 


1599 


15 


75 


* 








1600 


15 


76 


LOZENG 


BM 


MLBLZ,MAINX+2+Xl 


Q. INTERNAL 


1601 


15 


77 




B 


LABEL 




1602 


15 


78 




MCW 


BLANKS, MAINX+4+X1 




1603 


15 


79 




MCW 


INDEX1,SAVX1=3 




1604 


15 


80 




MCW 


INDEX3,INCEX2 




1605 


15 


81 




B 


SBGRD 




1606 


15 


82 




A 


SAVX1, INDEX1 




1607 


15 


83 




MCW 


0+X3»MAINX+Xl 




1608 


15 


84 




MCW 


SAVX1.INDEX1 




1609 


15 


85 




B 


UPENGL 




1610 


15 


86 


* 








1611 


15 


87 


* LOCATE 


PARAMETERS 




1612 


15 


88 


* 








1613 


15 


89 


LABEL 


SBR 


LEXIT+3 




1614 


15 


90 




MCW 


BLANKS=5,INDEX3 




1615 


15 


91 




MCW 


BLANKS, CNTP 





LABEL 



SFX 


CT 


LOCN 


INSTRl 


JCTION TYPE 


CARD 


A 


5 


0925 


8 


S64 


/ 


223 


A 


4 


0930 


B 


758 




223 


A 


4 


0934 


/ 


086 




223 


A 


4 


0938 


t 


001 




224 


A 


7 


0942 


M 


♦05 


019 


224 


A 


4 


0949 


B 


U78 




224 


A 


3 


0955 


881 




224 


A 


3 


0958 


X71 




224 


A 






0959 






A 


1 


0959 






LIT 


224 


A 


5 


0964 






LIT 


224 


A 


5 


0969 






LIT 


225 


A 


3 


0972 






LIT 


225 


A 


5 


0977 






LIT 


225 


A 


5 


0982 






LIT 


225 


A 


3 


0985 






LIT 


225 


A 


5 


0990 






LIT 


225 


A 


1 


0991 






LIT 


225 


A 


3 


0994 






LIT 


226 


A 


1 


0995 






LIT 


226 


A 


1 


0996 






LIT 


226 


A 


3 


0999 






AREA 


226 


A 


6 


1005 






LIT 


226 



X 






1044 




X 


5 


1044 


U IU1 


R 


X 


4 


1049 


S H72 




X 


4 


1053 


8 L01 





227 
227 
227 



X 


8 


1057 


V D68 0*3 K 


227 


X 


4 


1065 


B /19 


227 


X 


7 


1069 


M W16 0*5 


227 


X 


7 


1076 


M 089 Wll 


227 


X 


7 


1083 


M 099 094 


228 


X 


4 


1090 


B G46 


228 


X 


7 


1094 


A Wll 089 


228 


X 


7 


1101 


M 0+0 0*1 


228 


X 


7 


1108 


M Wll 089 


228 


X 


4 


1115 


8 A48 


228 



X 


4 


1119 


H S63 


229 


X 


7 


1123 


M W16 099 


229 


X 


7 


1130 


M W16 W19 


229 
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SEQ 


?G 


LIN 


LABEL 


OP 


OPERANDS 


1616 


15 


92 




MN 


MAINX+1+X1,CNTP 


1617 


15 


93 


CIRCL 


S 


+1,CNTP 


1618 


15 


94 




BM 


TENSR,CNTP 


1619 


15 


95 




A 


•3SINDEX3 


1620 


15 


96 




B 


CIRCL 


1621 


15 


97 


TENSR 


BCE 


CHZQN,DECTB-2+X3,G 


1622 


15 


98 




MCW 


BLANKS»CNTP=1 


1623 


15 


99 




MCW 


DECT8+X3,INCEX3 


1624 


16 


00 




MN 


MAINX+2+Xl,CNTP 


1625 


16 


01 


MGVINP 


S 


+1.CNTP 


1626 


16 


02 




MCW 


0+X3,0+X3 


1627 


16 


03 




SAR 


WAREA=3 


1628 


16 


04 




BCE 


CHZON,0+X3 t , 


1629 


16 


05 




BM 


PUTIN,CNTP 


1630 


16 


06 




MCW 


WAREA, INDEX3 


1631 


16 


07 




8 


MOVINP 


1632 


16 


08 


PUTIN 


BCE 


CHZGN,0+X3, 


1633 


16 


09 




BWZ 


DELET»MAINX*2+X1»S 


1634 


16 


10 


LEXIT 


B 





1635 


16 


11 


* 






1636 


16 


12 


» PROCESS 


LTORG 


1637 


16 


13 


• 






1638 


16 


14 


HAULIT 


MCW 


•ORG SMAINX+19 


1639 


16 


15 




MCW 


•LSMAINX + 74 


1640 


16 


16 




B 


SBROT 


1641 


16 


17 




B 


EXITC 


1642 


16 


18 




CS 


LMAIN 


1643 


16 


19 




MCW 


LITORG,MAINX+2Q 


1644 


16 


20 




MCW 


CHARCCMAINX + 74 


1645 


16 


21 




B 


WHYYY 


1646 


16 


22 


* 










£.3 


ft 




nocnAiuTinki cr\a 


1648 


16 


24 


* 






1649 


16 


25 


SUREX 


SBR 


SIMPLE+3 


1650 


16 


26 




SW 


1 


1651 


16 


27 




CS 


LIPUTX 


1652 


16 


28 




LCA 


LMAINX,LIPUTX 


1653 


16 


29 




B 


EXITCX 


1654 


16 


30 




LCA 


LIPUTX, LMAINX 


1655 


16 


31 


SIMPLE 


B 





1656 


16 


32 


TDFEXT 


DCW 


+RWDEXT 


1657 


16 


33 




DCW 


•MCU1001R* 


1658 


16 


34 


LITCRG 


DCW 


•LTCRG*' 


1659 


16 


35 


# 






1660 


16 


36 


* IOCS TABLE 


1661 


16 


37 


» 






1662 


16 


38 




DCW 


» = » 


1663 


16 


39 




DCW 


•RLS« 


1664 


16 


40 




DCW 


•GET 1 


1665 


16 


41 




DCW 


•PUT 1 



MISSING PARAMETER 
PARAMETER LOCATED 



REPLACE LTORG WITH ORG 



GENERATE LTORG* 



rnor cv cv no inr f 
tui\gf CAftA wn * u w ^t 



SFX 


CT 


LOCN 


INSTRl 


JCTIC 


)N 


X 


7 


1137 





0*2 


W19 




X 


7 


1144 


S 


W17 


H19 




X 


8 


1151 


V 


/70 


W19 


K 


X 


7 


1159 


A 


W18 


099 




X 


4 


1166 


B 


/44 






X 


8 


1170 


B 


-74 


UIO 





X 


7 


1178 


M 


W16 


W19 




X 


7 


1185 


M 


UI2 


099 




X 


7 


1192 


D 


0*3 


W19 




X 


7 


1199 


S 


W17 


W19 




X 


7 


1206 


M 


0+0 


0+0 




X 


4 


1213 


Q 


W22 






X 


8 


1217 


B 


-74 


0+0 


t 


X 


8 


1225 


V 


S44 


W19 


K 


X 


7 


1233 


M 


W22 


099 




X 


4 


1240 


B 


/99 






X 


8 


1244 


8 


-74 


0+0 




X 


8 


1252 


V 


D41 


0t3 


S 


X 


4 


1260 


B 


000 







CARD 

229 
229 
230 
230 
230 
230 
230 
231 
231 
231 
231 
231 
232 
232 
232 
232 
232 
233 
233 



X 


7 


1264 


M W27 


020 


233 


X 


7 


1271 


M W28 


075 


233 


X 


4 


1278 


B 033 




233 


X 


4 


1282 


8 D79 




233 


X 


4 


1286 


/ 086 




233 


X 


7 


1290 


M T58 


021 


234 


X 


7 


1297 


M U61 


075 


234 


X 


4 


1304 


B K97 




234 



X 


4 


1308 


H T41 




234 


X 


4 


1312 


, 001 




234 


X 


4 


1316 


/ 186 




234 


X 


7 


1320 


L 086 


186 


234 


X 


4 


1327 


B D79 




235 


X 


7 


1331 


L 186 


086 


235 


X 


4 


1338 


B 000 




235 


X 


3 


1344 


D83 




235 


X 


8 


1352 






235 


X 


6 


1358 






235 



X 


1 


1359 


X 


3 


1362 


X 


3 


1365 


X 


3 


1368 



235 
236 
236 
236 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1666 


16 


42 




DCW 


»DTF» 


1667 


16 


43 


TABLEI 


dcw 


•OPE' 


1668 


16 


44 


* 






1669 


16 


45 


» GENERATE 


UNKNOWN MACRC CARD 


1670 


16 


46 


* 






1671 


16 


47 


NOROT 


SBR 


NROTC+3 


1672 


16 


48 




CS 


LMAINX 


1673 


16 


49 




MCW 


»B»,MAINX+85 


1674 


16 


50 




MCW 


•UNKNOWN* ,MAINX+19 


1675 


16 


51 




MCW 


CHARCC, MAINX+74 


1676 


16 


52 




MCW 


•♦SMAINX+5 


1677 


16 


53 


NROTC 


B 





1678 


16 


54 


POTS 


MCW 


•BS SWITCH 


1679 


16 


55 




MCW 


•NSNEXTCD 


1680 


16 


56 




B 


COOKER 


1681 


16 


57 


» 






1682 


16 


58 


* MODIFY 


ADDRESS MACRO 


1683 


16 


59 


• 






1684 


16 


60 


MASET 


MCW 


CHARCR*MAINX+74 


1685 


16 


61 




B 


SBROTX 


1686 


16 


62 




MCW 


•DSMAINX+17 


1687 


16 


63 




B 


SGC 


1688 


16 


64 


INCLDX 


OCW 


• INCLO* 


1689 


16 


65 


CHARCS 


OCW 


•z« 


1690 


16 


66 


CHARCC 


DCW 


«Y« 


1691 


16 


67 


CHARCR 


OCW 


•W» 


1692 


16 


68 


KINGS 


6 


NOROT 


1693 


16 


69 




MCW 


HLDS8,MAINX+10 


1694 


16 


70 




B 


WHYYY 


1695 


16 


71 


ENDSTX 


B 


CTAPE 


1696 


16 


72 




NOP 


TDF5 


1697 


16 


73 




o 


UVI_ T*fi 


1698 


16 


74 


DECTB 


OCW 


+PART8 


1699 


16 


75 




DA 


9X3 


1700 


16 


76 


ENODC 


EGU 


* 


1701 


16 


77 


MOVEC 


LCA 


• »,0+X3 


1702 


16 


78 




SBR 


INDEX3 


1703 


16 


79 




A 


•3»,IND£X2+1 


1704 


16 


80 




BCE 


MIDLE, INDEX2+1,3 


1705 


16 


81 


LOWER 


A 


•1SINDEX1 


1706 


16 


82 




SW 


MAINX+20+X1 


1707 


16 


83 




BCE 


MOVEC, MAINX+20+X1,, 


1708 


16 


84 


WEEDD 


MCW 


IND£X2+1,I0CSAV 


1709 


16 


85 




B 


WEEDBX 


1710 


16 


86 




MCW 


I0CSAV,INCEX2+1 


1711 


16 


87 




8 


COMSN 


1712 


16 


88 


TDF5 


DCW 


= 3 


1713 


16 


89 




RTW 


5,0VLY4I 


1714 


16 


90 


NEWEST 


DC 





1715 


16 


91 


SYMNM 


DCW 


•OOO 1 



SFX CT LOCN INSTRUCTION TYPE CARD 



X 


3 


1371 








236 


X 


3 


1374 








236 


X 


4 


1375 


H 


U14 




236 


X 


4 


1379 


/ 


086 




236 


X 


7 


1383 


M 


W29 


086 


237 


X 


7 


1390 


M 


W36 


020 


237 


X 


7 


1397 


M 


U61 


075 


237 


X 


7 


1404 


M 


W37 


006 


237 


X 


4 


1411 


B 


000 




237 


X 


7 


1415 


M 


W29 


L01 


237 


X 


7 


1422 


M 


W38 


N66 


238 


X 


4 


1429 


B 


E90 




238 



X 


7 


1433 


M 


U62 


075 


238 


X 


4 


1440 


B 


033 




238 


X 


7 


1444 


M 


W39 


018 


238 


X 


4 


1451 


B 


P18 




238 


X 


5 


1459 








238 


X 


1 


1460 








239 


X 


1 


1461 








239 


X 


1 


1462 








239 


X 


4 


1463 


B 


T75 




239 


X 


7 


1467 


M 


192 


Oil 


239 


X 


4 


1474 


B 


K97 




239 


X 


4 


1478 


B 


W50 




239 


X 


4 


1482 


N 


V89 




240 


A 




i /. a z. 

itOQ 


a 
a 


t. "> JL 




o a r» 

C~T\J 


X 


3 


1492 


466 




240 


X 




1493 


] 


L519 




241 


X 




1519 










X 


7 


1520 


L 


W40 


0+0 


241 


X 


4 


1527 


H 


099 




241 


X 


7 


1531 


A 


W18 


095 


242 


X 


8 


1538 


B 


H22 


095 3 


242 


X 


7 


1546 


A 


W41 


089 


242 


X 


4 


1553 


, 


0S1 




242 


X 


8 


1557 


B 


V20 


0S1 , 


242 


X 


7 


1565 


M 


095 


H10 


243 


X 


4 


1572 


B 


N39 




243 


X 


7 


1576 


M 


H10 


095 


243 


X 


4 


1583 


B 


P79 




243 


X 


3 


1589 








243 


X 


8 


1590 


L 


<U5 


434 R 


243 


X 


1 


1598 








243 


X 


3 


1601 








243 



1401 AUTOCODER - PASS 2 - INITIAL ASSEMBLY VERSION 3 



3727L 



PAGE 



38 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


1716 


16 92 


WHOOPS 


DCW 


•CALL* 


1717 


16 93 


ADDCAL 


DCW 


+CALLTX 


1718 


16 94 




LTORG 


* 




16C3 


SAVX1 


DCW 


=03 




1614 


BLANKS 




=05 
+ 1 
*3» 




1622 


CNTP 




=01 




1627 


WAREA 




=03 




1638 






•ORG • 
«L« 
• 8 « 




1674 






•UNKNOWN* 
• ** 

•N* 

•D« 
t t 

«1* 


1719 


16 95 




ORG 


1649 


1720 


16 96 


GM1 


DCW 


t t 


1721 


16 97 




EX 





SFX CT LOCN INSTRUCTION TYPE CARD 



X 


4 


1605 






244 


X 


3 


1608 


-73 




244 


X 






1609 






X 


3 


1611 




AREA 


244 


X 


5 


1616 




AREA 


244 


X 


1 


1617 




LIT 


244 


X 


1 


1618 




LIT 


244 


X 


1 


1619 




AREA 


244 


X 


3 


1622 




AREA 


245 


X 


5 


1627 




LIT 


245 


X 


1 


1628 




LIT 


245 


X 


1 


1629 




LIT 


245 


X 


7 


1636 




LIT 


245 


X 


1 


1637 




LIT 


245 


X 


1 


1638 




LIT 


245 


X 


1 


1639 




LIT 


246 


X 


1 


1640 




LIT 


246 


X 


1 


1641 




LIT 


246 


X 






1649 






X 


1 


1649 






247 


X 






8 000 




248 
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S£Q PG LIN LABEL OP 



OPERANDS 



SFX CT LOCN INSTRUCTION TYPE CARD 



1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 

i -re t» 

A i ? J> 

1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 



16 98 

16 99 

17 00 

17 01 

17 02 

17 03 

17 04 

17 05 

17 06 

17 07 

17 08 

17 09 

17 10 

17 11 

17 12 

17 13 

17 14 

17 15 

17 16 

17 17 

17 18 

17 19 

17 20 

17 21 

17 22 

17 23 

17 24 

17 25 

17 26 

17 27 

17 28 
i ~j *»/■» 

i( ■ €. *t 

17 30 
17 31 
17 32 
17 33 
17 34 
17 35 
17 36 
17 37 
17 38 
17 39 
17 40 
17 41 
17 42 
17 43 
17 44 
17 45 
17 46 
17 47 



JOB 1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 
SFX X 

GENERALIZED TAPE INPUT/OUTPUT ROUTINE 



ORG 
CTAPEX S8R 
S8R 
MCW 
MCW 
MCW 

sw 

MCN 
A 

CV» 
MN 
MN 
MCW 
CTAPEC RT 

BCE 
CECRC BEE 
CCCMPR BCE 
B 
B 
B 
B 
B 
B 
8 
B 
B 

a 
a 

B 
CCMETS BER 
CCCNPR B 
CRWRED S 
MN 
BSP 
BCE 
BM 
B 
A 

SKP 
BCE 
B 
S 
H 



CTROW 



CCHALT 



1650 

INDEX2 

CCONPR+3 

3+X2,IND£X2 

8+X2,CTAPEC+7 

0+X2,CE0RC+3 

CCOMPR+4 

7+X2,CC0MPR+6 

•12SCC0MPR + 6 

CCOMPR+4 

CTAPEC+3,CHALT+6 

CTAPEC+7,CHALT+6 

»9SCERRCT=1 

0,0 

COMETS, CTAPEC+7,W 



CTAPEC, 0, 



CHALT H 

BSS 



CRWRED 



*l f , CERRCT 

CTAP£C+3,*+4 



CTRGW,CTAPEC+7,W 

CHALT, CERRCT 

CTAPEC 

•1»,CERASC=2 

6 

CCHALT, CERASC-1, 5 

CTAPEC-7 

CERASC 

0,202 

CTAPEC-7 

0,200 

CTAPEC-7, E 



X 






.3 


L650 






X 


4 


1650 


H 


094 




251 


X 


4 


1654 


H 


X70 




251 


X 


7 


1658 


M 


0-3 


094 


251 


X 


7 


1665 


M 


0-8 


X29 


251 


X 


7 


1672 


M 


0-0 


X41 


251 


X 


4 


1679 


t 


X47 




251 


X 


7 


1683 


M 


0-7 


X49 


252 


X 


7 


1690 


A 


Y93 


X49 


252 


X 


4 


1697 


) 


X47 




252 


X 


7 


1701 


D 


X25 


Y55 


252 


X 


7 


1708 


D 


X29 


Y55 


252 


X 


7 


1715 


M 


Y94 


Y95 


252 


X 


8 


1722 


M 


IU0 


000 R 


253 


X 


8 


1730 


B 


X62 


X29 W 


253 


X 


5 


1738 


B 


000 


K 


253 


X 


8 


1743 


B 


X22 


000 


253 


X 


1 


1751 


B 






253 


X 


1 


1752 


8 






253 


X 


1 


1753 


B 






253 


X 


1 


1754 


B 






254 


X 


1 


1755 


8 






254 


X 


1 


1756 


8 






254 


X 


1 


1757 


B 






254 


X 


1 


1758 


8 






254 


X 


1 


1759 


B 






254 




j. 


4. f «JU 


Q 
V 






oc/. 


X 


1 


1761 


B 






255 


X 


5 


1762 


B 


X71 


L 


255 


X 


4 


1767 


B 


000 




255 


X 


7 


1771 


S 


Y96 


Y95 


255 


X 


7 


1778 


D 


X25 


X88 


255 


X 


5 


1785 


U 


«U0 


B 


255 


X 


8 


1790 


B 


Y10 


X29 W 


255 


X 


8 


1798 


V 


Y49 


Y95 K 


256 


X 


4 


1806 


B 


X22 




256 


X 


7 


1810 


A 


Y96 


Y98 


256 


X 


5 


1817 


U 


<U6 


E 


256 


X 


8 


1822 


B 


Y34 


Y97 5 


256 


X 


4 


1830 


B 


X15 




256 


X 


4 


1834 


S 


Y98 




257 


X 


7 


1838 


• 


000 


202 


257 


X 


4 


1845 


B 


X15 




257 


X 


7 


1849 


• 


000 


200 


257 


X 


5 


1856 


B 


X15 


E 


257 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1772 


17 


48 




MCW 


CTAPEC+7,*+8 


1773 


17 


49 




RT 


0,0 


1774 


17 


50 




H 


0,201 


1775 


17 


51 




B 


CCONPR 


1776 


17 


52 


HEADR 


DCW 


•HEADR* 


1777 


17 


53 




LTORG 
DCW 


* 
*12» 




1739 


CERRCT 




=01 
'1« 

=02 




1763 


CERASC 




1778 


17 


54 


* 






1779 


17 


55 


* INITIALIZATION 


1780 


17 


56 


* 






1781 


17 


57 




ORG 


1900 


1782 


17 


58 


STARTX 


MCW 


340,IOCSAV 


1783 


17 


59 




MCW 




1784 


17 


595 




MCW 


N0RDRL,H0LE=1 


1785 


17 


60 




8 


CTAPE 


1786 


17 


61 




NOP 


TDFSS 


1787 


17 


62 




CW 


GM1 


1788 


17 


63 




SW 


3998 


1789 


17 


64 




MCW 


LIPUT+1,3998 


1790 


17 


65 




CW 


3995,3997 


1791 


17 


66 




BSS 


ALTERX, B 


1792 


17 


67 




RWD 


1 


1793 


17 


675 




MCW 


HOLE,CARDSX 


1794 


17 


68 




6 


STARTA 


1795 


17 


69 


TDFSS 


DCW 


+CCHALT 


1796 


17 


70 




DCW 


»L{U1001R» 


1797 


17 


71 


ALTERX 


6 


CTAPEX 


1798 


* ■■■» 






iinn 


rnr c f 

i uroo 


1799 


17 


73 




CW 


GM2XXX 


1800 


17 


74 




RWD 


1 


1801 


17 


75 




MCW 


IQCSAV,SYMNM 


1802 


17 


76 




MCW 


+I0CALT, SWITCH+3 


1803 


17 


77 




SBR 


HAPPY+3, STRING 


1804 


17 


78 




MCW 


•NSOUTSB 


1805 


17 


79 




MCW 


■NSBUTIX 


1806 


17 


80 




MCW 


•NS8UT2X 


1807 


17 


81 




BCE 


V0ICEB,I0CSAV-3,» 


1808 


17 


82 




MCW 


•NSSWMA2B 


1809 


17 


83 




B 


VOICEB 


1810 


17 


84 




LTORG 


* 




] 


L784 


HOLE 


DCW 


=01 




] 


L802 






+I0CALT 
1900 


1811 


17 


85 




ORG 


1812 


17 


86 




DA 


1X174 


1813 


17 


87 


CALLT 


ECU 


• 



SFX CT LOCN INSTRUCTION TYPE CARD 



X 


7 


1861 


M 


X29 


Y75 




257 


X 


8 


1868 


M 


(UO 


000 


R 


258 


X 


7 


1876 


• 


000 


201 




258 


X 


4 


1883 


B 


X67 






258 


X 


5 


1891 










258 


X 








L892 








X 


2 


1893 








LIT 


258 


X 


1 


1894 








LIT 


258 


X 


1 


1895 








AREA 


258 


X 


1 


1896 








LIT 


259 


X 


2 


1898 








AREA 


259 



X 






j 


L900 






X 


7 


1900 


M 


340 


H10 


260 


X 


1 


1907 


M 






260 


X 


7 


1908 


M 


W12 


-55 


260 


X 


4 


1915 


8 


W50 




260 


X 


4 


1919 


N 


268 




260 


X 


4 


1923 


) 


W49 




260 


X 


4 


1927 


, 


198 




260 


X 


7 


1931 


M 


187 


198 


261 


X 


7 


1938 


) 


195 


197 


261 


X 


5 


1945 


B 


Z77 


B 


261 


X 


5 


1950 


U 


(Ul 


R 


261 


X 


7 


1955 


M 


-55 


189 


261 


X 


4 


1962 


B 


101 




261 


X 


3 


1968 


Y34 




261 


X 


8 


1976 








262 


X 


4 


1977 


B 


W50 




262 


V 


A 

T 


1 QQ1 

J. J\J A. 


M 

I* 


7 Afi 




262 


X 


4 


1985 


) 


*43 




262 


X 


5 


1989 


u 


<U1 


R 


262 


X 


7 


1994 


M 


H10 


W01 


262 


X 


7 


2001 


M 


-58 


L04 


262 


X 


7 


2008 


H 


N73 


156 


263 


X 


7 


2015 


M 


-59 


041 


263 


X 


7 


2022 


M 


-59 


037 


263 


X 


7 


2029 


M 


-59 


089 


263 


X 


8 


2036 


B 


101 


H07 * 


263 


X 


7 


2044 


M 


-59 


759 


264 


X 


4 


2051 


8 


101 




264 


X 






2055 






X 


1 


2055 






AREA 


264 


X 


3 


2058 


106 


ADCON 


264 


X 


1 


2059 






LIT 


264 


X 






1900 






X 




1900 


2073 




264 


X 




2073 
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SEQ 


P6 


UN 


LA8EL 


OP 


OPERANDS 


1814 


17 


B8 


* 






1815 


17 


89 


* PROCESS 


MISSING PARAMETERS WIT 


1816 


17 


90 


* 






1817 


17 


91 


CHZGN 


BWZ 


SLASH, MAINX+2+Xl,S 


1818 


17 


92 




BWZ 


DEL£T,MAINX+2+Xl»B 


1819 


17 


93 




MCW 


•B» ,MAlNX+85 


1820 


17 


94 


20N8R 


CW 


MAINX+Xl,MAINX+3+Xl 


1821 


17 


95 


ZGNCH 


& 


DEFND 


1822 


17 


96 


SLASH 


MCW 


8LANKS-2,MAINX+2+Xl 


1823 


17 


97 




8 


ZONBR 


1824 


17 


98 


SUBSET 


MCW 


•N f f SWITCH 


1825 


17 


99 




MCW 


»B«,NEXTCC 


1826 


18 


00 




MCW 


CHARCS,MAINX+74 


1827 


18 


01 




B 


CALIT 


1828 


18 


02 


MASKS 


MCW 


»B«,NOCAL 


1829 


18 


03 


* 






1830 


18 


04 


* PROCESSING CALL STATEMENT 


1831 


18 


05 


* 






1832 


18 


06 


CALLN 


MCW 


CHARCR,MAINX+74 


1833 


18 


07 


CALIT 


MCW 


ADDCAL,INDEX2 B 


1834 


18 


08 




sw 


MAINXX+20 


1835 


18 


09 


YSCALX 


BCE 


XXXX,INDEX2-2,Y Q 


1836 


18 


10 




C 


0+X2,« • 


1837 


16 


11 




BE 


SPAOEX 


1838 


18 


12 




C 


0+X2,MAINX+22 


1839 


18 


13 




SAR 


INDEX2 


1840 


18 


14 




BE 


QUEEN 


1841 


18 


15 




B 


YSCALX 


1842 


18 


16 


SPADEX 


MCW 


MAINX+22,0+X2 


1843 


18 


17 


QUEEN 


cu 


MAINXX+20 


1844 


18 


18 


NGCALX 


NOP 


SKELCX 




iO 


1*3 




O 


f nnnT 
OOf\U i 


1846 


18 


20 




BCE 


SWITCH, MAINX+19.D Q 


1847 


13 


21 


* 






1848 


18 


22 


» LOAD PARAMETERS INTO TABLE 


1849 


18 


23 


* 






1850 


18 


24 




MCW 


MAINX+10,PARTB 


1851 


18 


25 




SBR 


INDEX3 


1852 


18 


26 




S 


INDEX1+1 


1853 


18 


27 


DIMNDX 


B 


SCANXX 


1854 


18 


28 




SW 


1 


1855 


18 


29 




LCA 


MAINX+18+X1,0+X3 


1856 


18 


30 




SBR 


INDEX3 


1857 


18 


31 




BCE 


HEARTX,MAINX+19+X1, 


1858 


18 


32 




BCE 


WEEDBX,MAINX+19+Xl f , 


1859 


18 


33 




B 


DIMNDX 


1860 


18 


34 


XXXX 


MCW 


»7»,MAINX+85 


1861 


18 


35 


WHYYY 


B 


SBROT 


1862 


18 


36 


SWITCH 


B 


READTA 


1863 


18 


37 




B 


POTS 



SFX CT LOCN INSTRUCTION TYPE CARD 



REGARD TO ZONE 



BEGIN SCAN OF CALL TABLE 



CALL TABLE EXCEEDED 



INCLD STATEMENT 



X 


8 


2074 


V 


JOS 


0*3 S 


265 


X 


8 


2082 


V 


D41 


0*3 B 


265 


X 


7 


2090 


M 


H44 


086 


265 


X 


7 


2097 


) 


0*1 


0*4 


265 


X 


4 


2104 


B 


+41 




265 


X 


7 


2108 


M 


W14 


0*3 


266 


X 


4 


2115 


B 


-97 




266 


X 


7 


2119 


M 


H45 


L01 


266 


X 


7 


2126 


M 


H44 


N66 


266 


X 


7 


2133 


M 


U60 


075 


266 


X 


4 


2140 


B 


J58 




266 


X 


7 


2144 


M 


H44 


K20 


267 



X 


7 


2151 


M 


U62 


075 


267 


X 


7 


2158 


M 


W08 


094 


267 


X 


4 


2165 


t 


021 




267 


X 


8 


2169 


B 


K90 


092 Y 


267 


X 


7 


2177 


C 


0-0 


H48 


268 


X 


5 


2184 


B 


K09 


S 


268 


X 


7 


2189 


C 


0-0 


023 


268 


X 


4 


2196 


Q 


094 




268 


X 


5 


2200 


B 


K16 


S 


268 


X 


4 


2205 


B 


J69 




268 


X 


7 


2209 


M 


023 


0-0 


268 


X 


4 


2216 


) 


021 




269 


X 


4 


2220 


N 


R17 




269 


A 


t 


~t 1 1 1. 

£.£.£.1 




UJ3 




£.01 


X 


8 


2228 


B 


L01 


020 D 


269 


X 


7 


2236 


M 


Oil 


466 


269 


X 


4 


2243 


H 


099 




269 


X 


4 


2247 


S 


090 




269 


X 


4 


2251 


8 


M19 




270 


X 


4 


2255 


9 


001 




270 


X 


7 


2259 


L 


0/9 


0+0 


270 


X 


4 


2266 


H 


099 




270 


X 


8 


2270 


B 


L09 


OSO 


270 


X 


8 


2278 


B 


N39 


OSO , 


270 


X 


4 


2286 


B 


K51 




270 


X 


7 


2290 


M 


H49 


086 


271 


X 


4 


2297 


B 


033 




271 


X 


4 


2301 


8 


467 




271 


X 


4 


2305 


8 


U15 




271 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1864 


18 


38 


• 






1865 


18 


39 


* GENERATE BRANCH AND DCW,S 


1866 


18 


40 


* 






1867 


18 


41 


HEARTX 


LCA 


« »,0+X3 


1868 


18 


42 




CS 


LMAINX 


1869 


18 


43 




MCW 


PARTBtMAINX+10 


1870 


18 


44 




MCW 


PARTB-6,MAINX+24 


1871 


18 


45 




SAR 


INDEX3 


1872 


18 


46 




MCW 


•B»,MAINX+15 


1873 


18 


47 


SLAM 


MCW 


CHARCCMAINX + 74 


1874 


18 


48 




MCW 


INDEX3,SAVXL2=3 


1875 


18 


49 




MCW 


SAVXL2»IND£X3 


1876 


18 


50 




CW 


MAINX+23 


1877 


18 


51 




6 


SBROT 


1878 


18 


52 




CS 


LMAINX 


1879 


18 


53 




BCE 


SWITCH, + X3, 


1880 


18 


54 




MCW 


•DCW'tMAINX+17 


1881 


18 


55 




MCW 


INDEX3, INCEX2 


1882 


18 


56 




B 


S8GRDX 


1883 


18 


57 




MCW 


G+X3,MAINX+20+Xl 


1884 


18 


58 




SAR 


INDEX3 


1885 


18 


59 




B 


SLAM 


1886 


18 


60 


* 






1887 


18 


61 


* 


SCAN 


FOR COMMA, TWO BLANKS, CR AN * 


1888 


18 


62 


* 






1889 


18 


63 


SCANXX 


S6R 


CLUBS+3 


1890 


18 


64 


SCANL 


SW 


MAINX+20 


1891 


18 


65 




BCE 


SCNAT,MAINX+2Q+X1,« 


1892 


18 


66 




BCE 


CETWMS, MAINX+20+X1,, 


1893 


18 


67 




C 


MAINX+20+X1,' • 


1894 


18 


68 




QE 


CLUBS 








f V/ T T "I 

UAi 1 J. 


A 


■i* tunrvi 


1896 


18 


70 




C 


INDEX1, »52» 


1897 


18 


71 




BU 


SCANL 


1898 


18 


72 




C 


MAINX+71,* • 


1899 


18 


73 




BE 


CLUBS 


1900 


13 


74 




BCE 


CLUBS, MAINX+71, 


1901 


18 


75 




B 


CXIT 


1902 


18 


76 


CETWMS 


SW 


MAINX+21+X1 


1903 


18 


77 


CXIT 


A 


*1»,INDEX1 


1904 


18 


78 


CLUBS 


B 





1905 


18 


79 


SCNAT 


ZA 


•510S1N0EX1 + 1 


1906 


18 


80 


ATLCK 


BCE 


CXITl,MAINX+20+Xl,« 


1907 


18 


81 




S 


+10,INDEX1+1 


1908 


18 


82 




B 


ATLOK 


1909 


18 


83 


• 






1910 


18 


84 


* CBTAIN MORE PARAMETERS FROM ADDITIONAL 


1911 


18 


85 


« 






1912 


18 


86 


WEECBX 


S8R 


WEDXT+3 


1913 


18 


87 




B 


NEWEED 



SFX CT LOCN INSTRUCTION TYPE CARD 



X 


7 


2309 


L 


H50 


0+0 


271 


X 


4 


2316 


/ 


086 




271 


X 


7 


2320 


M 


466 


Oil 


271 


X 


7 


2327 


M 


460 


025 


272 


X 


4 


2334 


Q 


099 




272 


X 


7 


2338 


M 


H44 


016 


272 


X 


7 


2345 


M 


U61 


075 


272 


X 


7 


2352 


M 


099 


H53 


272 


X 


7 


2359 


M 


H53 


099 


272 


X 


4 


2366 


J 


024 




273 


X 


4 


2370 


B 


033 




273 


X 


4 


2374 


/ 


086 




273 


X 


8 


2378 


B 


L01 


0+0 


273 


X 


7 


2386 


M 


H56 


018 


273 


X 


7 


2393 


M 


099 


094 


273 


X 


4 


2400 


B 


G46 




273 


X 


7 


2404 


M 


0+0 


0S1 


274 


X 


4 


2411 


Q 


099 




274 


X 


4 


2415 


B 


L45 




274 



X 


4 


2419 


H 


N12 




274 


X 


4 


2423 


t 


021 




274 


X 


8 


2427 


B 


N13 


0S1 » 


274 


X 


8 


2435 


B 


M98 


0S1 , 


274 


X 


7 


2443 


C 


0S1 


H58 


275 


X 


5 


2450 


B 


N09 


S 


275 


V 


-t 

i 


o /. c c 


A 


ucn 


089 


275 


X 


7 


2462 


C 


089 


H61 


275 


X 


5 


2469 


B 


M23 


/ 


275 


X 


7 


2474 


C 


072 


H58 


275 


X 


5 


2481 


B 


N09 


S 


276 


X 


8 


2486 


B 


N09 


072 


276 


X 


4 


2494 


B 


N02 




276 


X 


4 


2498 


, 


0S2 




276 


X 


7 


2502 


A 


H59 


089 


276 


X 


4 


2509 


B 


000 




276 


X 


7 


2513 


+ 


H64 


090 


276 


X 


8 


2520 


B 


M55 


0S1 • 


277 


X 


7 


2528 


S 


H66 


090 


277 


X 


4 


2535 


B 


N20 




277 



4 2539 
4 2543 



H 021 
B N54 



277 
277 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1914 


18 


88 


WEDD8X 


A 


«1»*INDEX1 


1915 


18 


89 


NEWEED 


C 


IND£X1»»52• 


1916 


18 


90 




BU 


LOOPW 


1917 


18 


91 


NEXTCD 


NOP 


CALLCD 


1918 


18 


92 


HAPPY 


B 


TWEDBA 


1919 


18 


93 




NOP 




1920 


18 


94 




MCW 


CHARCR,MAINX+74 


1921 


IB. 


95 


THRU 


B 


SBROTX 


1922 


18 


96 




BCE 


HAPPY, MAINX+5,* 


1923 


18 


97 




S 


INDEX1+1 


1924 


18 


98 




BCE 


MOVECMAINX+20,, 


1925 


18 


99 


LQGPW 


BCE 


WEDDBX,MAINX+20+Xl f 


1926 


19 


00 




SW 


MAINX+2G+X1 


1927 


19 


01 


WEOXT 


B 





1928 


19 


02 


TDF6 


DCW 


+CCHALT 


1929 


19 


03 




DCW 


•MCU6I12W' 


1930 


19 


04 


* 






1931 


19 


05 


* OUTPUT 


ROUTINE 


1932 


19 


06 


* 






1933 


19 


07 


SBROTX 


S8R 


BRNCH+3 


1934 


19 


08 


BUT1X 


B 


HOMEX 


1935 


19 


09 


0UTS8 


MCW 


ANTPER,C0METS+3 


1936 


19 


10 


HCMEX 


MCW 


LMAIN,LOPUT 


1937 


19 


11 




BCE 


BUT2X,0UTPT+73,* 


1938 


19 


12 




MCW 


BLANKS-3,CUTPT+73 


1939 


19 


13 




SW 


LOPUT+1 


1940 


19 


14 




MCW 


LIPUT+1,LCPUT+1 


1941 


19 


15 




B 


CTAPEX 


1942 


19 


16 




NOP 


TDF6 


1943 


19 


17 


8UT2X 


MCW 


ACRWEDtCOMETS+3 


1944 


19 


18 


BRNCH 


8 





1945 






* 






1946 


19 


20 


* PROCESS 


PARAMETERS FOR SUBSTI 


1947 


19 


21 


* 






1948 


19 


22 


MSUBTX 


MCW 


»R« ,MAINX+74 


1949 


19 


23 




B 


SBROTX 


1950 


19 


24 




A 


* 1* tSYMNM 


1951 


19 


25 


SGC 


MCW 


MAINX-H7,HLCSB 


1952 


19 


26 




S 


ENDDC 


1953 


19 


2 7 




CHAIN 8 


1954 








S 




1955 








S 




1956 








S 




1957 








S 




1958 








s 




1959 








s 




1960 








s 




1961 








s 




1962 


19 


28 




s 


INDEX2+2 


1963 


19 


29 




A 


'3SIN0EX2 + 1 



READ NEXT RECORD 



Q. FIRST PARAMETER MISSSING 



SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


X 


7 


2547 


A 


H59 


089 


277 


X 


7 


2554 


C 


089 


H61 


278 


X 


5 


2561 


B 


006 


/ 


278 


X 


4 


2566 


N 


G80 




278 


X 


4 


2570 


8 


653 




278 


X 


1 


2574 


N 






278 


X 


7 


2575 


M 


U62 


075 


278 


X 


4 


2582 


B 


033 




278 


X 


8 


2586 


B 


N70 


006 * 


279 


X 


4 


2594 


S 


090 




279 


X 


8 


2598 


B 


V20 


021 , 


279 


X 


8 


2606 


B 


N47 


0S1 


279 


X 


4 


2614 


t 


0S1 




279 


X 


4 


2618 


B 


000 




279 


X 


3 


2624 


Y34 




279 


X 


8 


2632 








280 



X 


4 


2633 


H 


099 




280 


X 


4 


2637 


B 


048 




280 


X 


7 


2641 


M 


955 


X65 


280 


X 


7 


2648 


M 


086 


197 


280 


X 


8 


2655 


B 


089 


185 » 


280 


X 


7 


2663 


M 


W13 


185 


281 


X 


4 


2670 


t 


198 




281 


X 


7 


2674 


M 


187 


198 


281 


X 


4 


2681 


B 


W50 




281 


X 


4 


2685 


N 


024 




281 


X 


7 


2689 


M 


958 


X65 


281 


X 


4 


2696 


3 


000 




281 



X 


7 


2700 


M 


H67 


075 




282 


X 


4 


2707 


B 


033 






282 


X 


7 


2711 


A 


H59 


W01 




282 


X 


7 


2718 


M 


018 


192 




282 


X 


4 


2725 


S 


V19 




MACRO 


282 


X 


1 


2729 


s 






GEN 


282 


X 


1 


2730 


s 






GEN 


282 


X 


1 


2731 


s 






GEN 


283 


X 


1 


2732 


s 






GEN 


283 


X 


1 


2733 


s 






GEN 


283 


X 


1 


2734 


s 






GEN 


283 


X 


1 


2735 


s 






GEN 


283 


X 


1 


2736 


s 






GEN 


283 


X 


4 


2737 


s 


096 






283 


X 


7 


2741 


A 


H68 


095 




284 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1964 


19 


30 




MCW 


MAINX+10, PARTS 


1965 


19 


31 




SBR 


INDEX3 


1966 


19 


32 




S 


INDEX1+1 


1967 


19 


33 




BCE 


BTRENDtMAINX+20, 


1968 


19 


34 




BCE 


MOVECMAINX+20,, 


1969 


19 


35 


CGMSN 


A 


»3 , ,IN0EX2+1 


1970 


19 


36 




BCE 


A8GVE,INDEX2+1,3 


1971 


19 


37 


BELOW 


B 


SCANXX 


1972 


19 


38 




LCA 


MAINX+18+X1,0+X3 


1973 


19 


39 




SBR 


INDEX3 


1974 


19 


40 




BCE 


M0VECMAINX+20+X1,, 


1975 


19 


41 




BCE 


WEEDD t MAINX+19+Xl,» 


1976 


19 


42 


BTRENO 


LCA 


SS0+X3 


1977 


19 


43 




CS 


LMAINX 


1978 


19 


44 




C 


PREVS=3,HLDSB 


1979 


19 


45 




MCW 


•999SPREVS 


1980 


19 


46 




BE 


HARMN 


1981 


19 


47 




BH 


R0TP1 


1982 


19 


48 


E0F1 


RWD 


1 


1983 


19 


49 


« 






1984 


19 


50 


* 




SUBSTITUTIONS 


1985 


19 


51 


* 






1986 


19 


52 


RDTP1 


SW 


100 


1987 


19 


53 




B 


CTAPE 


1988 


19 


54 




NOP 


TDFLIB 


1989 


19 


55 




C 


MAINX+19,HEADR 


1990 


19 


56 




BU 


RDTP1 


1991 


19 


57 




C 


MAINX+7,»999« 


1992 


19 


58 




BE 


KINGS 


1993 


19 


59 




C 


MAINX+7,HLDSB 


1994 


19 


60 




BU 


RDTP1 


1995 


19 


61 




3 


MAPMN 


1996 


19 


62 


SKELC 


MCW 


«N« ,NOCAL 


1997 


19 


63 




MCW 


CHARCS,MAINX+74 


1998 


19 


64 




6 


SBROT 


1999 


19 


65 




BCE 


HARMN, MAINX+19,0 


2000 


19 


66 




MCW 


VB » t MAINX+19 


2001 


19 


67 


BOUTS 


CW 


ZEROX 


2002 


19 


68 




MCW 


CHARCCMAINX + 74 


2003 


jg 


69 




B 


SBROTX 


2004 


19 


70 


HARMN 


CS 


LMAINX 


2005 


19 


71 




SW 


1,100 


2006 


19 


72 




MCW 


LIPUT+1,100 


2007 


19 


73 




B 


CTAPEX 


2008 


19 


74 




NOP 


TDFLB2 


2009 


19 


75 




C 


MAINX+19,HEADR 


2010 


19 


76 




MCW 


MAINX+7,PREVS 


2011 


19 


77 




BE 


SWITCH 


2012 


19 


78 




C 


MAINX+7, • )0C« 


2013 


19 


79 




BU 


LZFND 



SFX CT LOCN INSTRUCTION TYPE CARD 



X 


7 


2748 


« 


Oil 


466 


284 


X 


4 


2755 


H 


099 




284 


X 


4 


2759 


S 


090 




284 


X 


8 


2763 


B 


Q25 


021 


284 


X 


8 


2771 


B 


V20 


021 , 


284 


X 


7 


2779 


A 


H68 


095 


285 


X 


8 


2786 


B 


H33 


095 3 


285 


X 


4 


2794 


B 


M19 




285 


X 


7 


2798 


L 


0/9 


0+0 


285 


X 


4 


2805 


H 


099 




285 


X 


8 


2809 


B 


V20 


0S1 , 


285 


X 


8 


2817 


B 


V65 


oso , 


286 


X 


7 


2825 


L 


H69 


0+0 


286 


X 


4 


2832 


/ 


086 




286 


X 


7 


2836 


C 


H72 


192 


286 


X 


7 


2843 


M 


H75 


H72 


286 


X 


5 


2850 


B 


R65 


S 


286 


X 


5 


2855 


B 


Q65 


U 


287 


X 


5 


2860 


U 


(Ul 


R 


287 



X 


4 


2865 


t 


100 




287 


X 


4 


2869 


& 


W50 




287 


X 


4 


2873 


N 


B18 




287 


X 


7 


2877 


C 


020 


Y91 


287 


X 


5 


2884 


B 


Q65 


/ 


287 


X 


7 


2889 


C 


008 


H75 


288 


X 


5 


2896 


B 


U63 


S 


288 


X 


7 


2901 


C 


008 


192 


288 


X 


5 


2908 


B 


Q65 


/ 


288 


V 




417 A J 


D 

o 


R65 




■*% *%. r± 


X 


7 


2917 


M 


H45 


K20 


288 


X 


7 


2924 


M 


U60 


075 


289 


X 


4 


2931 


B 


033 




289 


X 


8 


2935 


B 


R65 


020 D 


289 


X 


7 


2943 


M 


H80 


020 


289 


X 


4 


2950 


) 


188 




289 


X 


7 


2954 


M 


U61 


075 


289 


X 


4 


2961 


B 


033 




290 


X 


4 


2965 


/ 


086 




290 


X 


7 


2969 


f 


001 


100 


290 


X 


7 


2976 


M 


187 


100 


290 


X 


4 


2983 


B 


W50 




290 


X 


4 


2987 


N 


B29 




290 


X 


7 


2991 


C 


020 


Y91 


290 


X 


7 


2998 


M 


008 


H72 


291 


X 


5 


3005 


B 


L01 


S 


291 


X 


7 


3010 


C 


008 


H83 


291 


X 


5 


3017 


B 


+26 


/ 


291 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2014 


19 


80 




sw 


ZEROX 


2015 


19 


81 


» 






2016 


19 


82 


* RIGHT TO 


LEFT SCAN FOR LOZENGE 


2017 


19 


83 


* 






2018 


19 


84 


LZFND 


ZA 


*690»,INDEX1+1 


2019 


19 


85 


LOZSC 


BCE 


LZCNT, MAINX+X1,) 


2020 


19 


86 


DEFND 


S 


+1Q,INDEX1+1 


2021 


19 


87 




C 


INDEX1,«15» 


2022 


19 


88 




BU 


LOZSC 


2023 


19 


89 




s 


INDEXl+1 


2024 


19 


90 


CLEANC 


8 


SCANXX 


2025 


19 


91 




CW 


MAINX+20*MAINX+20+Xl 


2026 


19 


92 




C 


INDEXl.^l* 


2027 


19 


93 




BL 


ENDCLN 


2028 


19 


94 




C 


MAINXX+20+X1,' » 


2029 


19 


95 




BU 


CLEANC 


2030 


19 


96 




BCE 


ENDCLN,MAINX+5,* 


2031 


19 


97 




sw 


MAINX+20+X1 


2032 


19 


98 




MCW 


BLANKS-4,MAINXX+71 


2033 


19 


99 




MCW 


MAINXX+71 


2034 


20 


00 




CW 


MAINXX+20+X1 


2035 


20 


01 


* 






2036 


20 


02 


* RIGHT TC 


J LEFT SCAN FOR LOZENG 


2037 


20 


03 


* 






2038 


20 


04 


ENOCLN 


MCW 


»015»,INDEX1 


2039 


20 


05 




SBR 


ZONCH+3, UPENGL 


2040 


20 


06 


ENGLOZ 


BCE 


LOZENG, MAINX+X1, ) 


2041 


20 


07 


UPENGL 


s 


+10,IND£X1+1 


2042 


20 


08 




C 


INDEX1,»04 I 


2043 


20 


09 




BU 


ENGLOZ 


2044 


20 


10 


OUTSD 


SBR 


ZONCH+3, DEFND 


">n/. c 


-ifS 


i i 


cutcti 


itnn 


niRTO M» TH V . In 


£. V~T^ 


&v 


J. X 


on i. r i i_ 


mur 


r h rs i otriHtrtATiy 


2046 


20 


12 




MCW 


*N«,SHIFTL 


2047 


20 


13 




C 


MAINX+18, WHOOPS 


2048 


20 


14 




BE 


MASKS 


2049 


20 


15 




C 


MAINX+19,INCL0 


2050 


20 


16 




BE 


MASKS 


2051 


20 


17 




B 


BOUTS 


2052 


20 


18 


TDFLIB 


DCW 


+KINGS 


2053 


20 


19 




OCW 


•MtUlGQlR* 


2054 


20 


20 


TDFL82 


DCW 


+E0F1B 


2055 


20 


21 




DCW 


•MCU1001R 1 


2056 


20 


22 


* 






2057 


20 


23 


* PROCESS 


LOZENGED FIELD 21 - 


2058 


20 


24 


* 






2059 


20 


25 


LZCNT 


BCE 


DEFND, MAINX+1+X1, 


2060 


20 


26 




SW 


MAINX+X1.MAINX+3+X1 


2061 


20 


27 




BM 


STSYM,MAINX+2*X1 


2062 


20 


28 




8 


LABEL 


2063 


20 


29 




MCW 


INDEX3,SAVX3=3 



SFX CT LOCN 
X 4 3022 



INSTRUCTION TYPE CARD 
, 188 291 



- 20 



- 72 



X 


7 


3026 


+ 


H86 


090 


291 


X 


8 


3033 


B 


B38 


0*1 ) 


292 


X 


7 


3041 


S 


H66 


090 


292 


X 


7 


3048 


C 


089 


H88 


292 


X 


5 


3055 


B 


+ 33 


/ 


292 


X 


4 


3060 


S 


090 




292 


X 


4 


3064 


B 


M19 




292 


X 


7 


3068 


) 


021 


0S1 


293 


X 


7 


3075 


C 


089 


H90 


293 


X 


5 


3082 


B 


A26 


T 


293 


X 


7 


3087 


C 


0S1 


H58 


293 


X 


5 


3094 


B 


+64 


/ 


293 


X 


8 


3099 


B 


A26 


006 * 


293 


X 


4 


3107 


t 


0S1 




294 


X 


7 


3111 


M 


W12 


072 


294 


X 


4 


3118 


M 


072 




294 


X 


4 


3122 


) 


0S1 




294 



X 


7 


3126 


M 


H93 


089 


294 


X 


7 


3133 


H 


J07 


A48 


294 


X 


8 


3140 


B 


4=57 


0*1 ) 


295 


X 


7 


3148 


S 


H66 


090 


295 


X 


7 


3155 


C 


089 


H95 


295 


X 


5 


3162 


B 


A40 


/ 


295 


X 


7 


3167 


H 


J07 


+41 


295 


A 


i 


jiff 




# * * 




296 


X 


7 


3181 


M 


H45 


A74 


296 


X 


7 


3188 


C 


019 


W05 


296 


X 


5 


3195 


B 


J44 


S 


296 


X 


7 


3200 


C 


020 


U59 


296 


X 


5 


3207 


B 


J44 


S 


296 


X 


4 


3212 


B 


R50 




297 


X 


3 


3218 


U63 




297 


X 


8 


3226 








297 


X 


3 


3229 


*44 




297 


X 


8 


3237 








297 



X 


8 


3238 


B +41 0*2 


297 


X 


7 


3246 


, 0*1 0*4 


298 


X 


8 


3253 


V C56 0*3 K 


298 


X 


4 


3261 


B /19 


298 


X 


7 


3265 


M 099 H98 


298 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2064 


20 


30 




S 


INDEX3.WAREA 


2065 


20 


31 




MZ 


8LANKS.WAREA 


2066 


20 


32 




MCW 


*I99»»INDEX3 


2067 


20 


33 




S 


WAR£A,INDEX3 


2068 


20 


34 




MCW 


•ISINDEX3-2 


2069 


20 


35 




C 


IND£X3»»I9F* 


2070 


20 


36 




BL 


SPTYP 


2071 


20 


37 




MCW 


MAINX+76+X3 f MAINX+72 


2072 


20 


38 




SBR 


M0VE3+6 


2073 


20 


39 


LMN 


cw 


MAINX+3+X1 


2074 


20 


40 




MCW 


SAVX3,INDEX3 


2075 


20 


41 


MGVE3 


MCW 


0+X3»0 


2076 


20 


42 




CW 


MAINX+X1 


2077 


20 


43 




8 


DEFND 


2078 


20 


44 


STSYM 


MCW 


MAINX+68tMAINX+71 


2079 


20 


45 




MCW 


SYMNM 


2080 


20 


46 




CW 


MAINX+X1.MAINX+3+X1 


2081 


20 


47 




B 


DEFND 


2082 


20 


48 


* 






2083 


20 


49 


« SPECIAL 


PROCESSING CF ONE AND 


2084 


20 


50 


* 






2085 


20 


51 


SPTYP 


LCA 


MAINX+72,CUTPT+72 


2086 


20 


52 




CW 


MAINX+Xl,MAINX+3+Xl 


2087 


20 


53 




MCW 


BLANKS-2,MAINX+71 


2088 


20 


54 




BCE 


HOUSE, INDEX3»h 


2089 


20 


55 




MCW 


0UTPT+72,MAINX+7l 


2090 


20 


56 




SBR 


M0VE3+6 


2091 


20 


57 




B 


SPOUT 


2092 


20 


58 


HOUSE 


MCW 


0UTPT+72,MAINX+70 


2093 


20 


59 




SBR 


M0VE3+6 


2094 


20 


60 


SPOUT 


CW 


GUTPT+3+X1 






ox 




O 


1 Uil 

LRU 


2096 


20 


62 


DELET 


BW 


LBLMV, ZEROX 


2097 


20 


63 




B 


HARMN 


2098 


20 


64 


LBLMV 


MCW 


•M»,SHIFTL 


2099 


20 


65 




CW 


ZEROX 


2100 


20 


66 




B 


HARMN 


2101 


20 


67 


MLBLZ 


MCW 


SYMNM»MAINX+10 


2102 


20 


68 




B 


OUTSD 


2103 


20 


69 


* 






2104 


20 


70 


* PULL IN 


CALLED SUBROUTINES AT 


2105 


20 


71 


* 






2106 


20 


72 


EXITC 


SBR 


CEXIT1+3 


2107 


20 


73 


RWDEXT 


RWO 


1 


2108 


20 


74 


CWPRC 


CW 


NEWEST 


2109 


20 


75 


TFRD1 


sw 


100 


2110 


20 


76 




MCW 


LIPUT+1,1C0 


2111 


20 


77 




B 


CTAPEX 


2112 


20 


78 




NOP 


TDFEXT 


2113 


20 


79 




C 


MAINX+19,HEADR 



SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


X 


7 


3272 


S 


099 


W22 


298 


X 


7 


3279 


Y 


W16 


W22 


299 


X 


7 


3286 


M 


101 


099 


299 


X 


7 


3293 


S 


W22 


099 


299 


X 


7 


3300 


M 


102 


097 


299 


X 


7 


3307 


C 


099 


105 


299 


X 


5 


3314 


B 


C78 


T 


300 


X 


7 


3319 


M 


0G7 


073 


300 


X 


4 


3326 


H 


C47 




300 


X 


4 


3330 


) 


0*4 




300 


X 


7 


3334 


M 


H98 


099 


300 


X 


7 


3341 


M 


0+0 


000 


300 


X 


4 


3348 


) 


0*1 




300 


X 


4 


3352 


B 


+41 




301 


X 


7 


3356 


M 


069 


072 


301 


X 


4 


3363 


M 


W01 




301 


X 


7 


3367 


) 


0*1 


0*4 


301 


X 


4 


3374 


B 


+41 




301 



X 


7 


3378 


L 


073 


184 


301 


X 


7 


3385 


) 


0*1 


0*4 


302 


X 


7 


3392 


M 


W14 


072 


302 


X 


8 


3399 


B 


D22 


099 H 


302 


X 


7 


3407 


M 


184 


072 


302 


X 


4 


3414 


H 


C47 




302 


X 


4 


3418 


B 


D33 




302 


X 


7 


3422 


M 


184 


071 


303 


X 


4 


3429 


H 


C47 




303 


X 


4 


3433 


) 


1/5 




303 


V 


T 




D 


r tan 




■ani 


X 


8 


3441 


V 


D53 


188 1 


303 


X 


4 


3449 


B 


R65 




303 


X 


7 


3453 


M 


106 


A74 


303 


X 


4 


3460 


J 


188 




304 


X 


4 


3464 


B 


R65 




304 


X 


7 


3468 


M 


W01 


Oil 


304 


X 


4 


3475 


B 


A67 




304 



X 


4 


3479 


H G45 




304 


X 


5 


3483 


U (Ul 


R 


304 


X 


4 


3488 


) V98 




304 


X 


4 


3492 


, 100 




305 


X 


7 


3496 


M 187 


100 


305 


X 


4 


3503 


B W50 




305 


X 


4 


3507 


N T44 




305 


X 


7 


3511 


C 020 


Y91 


305 
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SEO 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2114 


20 


80 




BU 


TPRD1 


2115 


20 


81 


SOLUT 


C 


MAINX+7, »999» 


2116 


20 


82 




BE 


E0F1A 


2117 


20 


83 


OPPENT 


MCW 


ADDCALjINDEXl 


2118 


20 


84 


PRTNER 


BCE 


TPRD1,INDEX1-2,Y 


2119 


20 


85 




SW 


MAINX+5 


2120 


20 


86 




c 


0+Xl,MAINX+7 


2121 


20 


87 




SAR 


INDEX1 


2122 


20 


88 




8U 


PRTNER 


2123 


20 


89 




BW 


TPRD1.1+X1 


2124 


20 


90 




CW 


MAINX+5 


2125 


20 


91 




sw 


1 + X1 


2126 


20 


92 




SW 


NEWEST 


2127 


20 


93 


COOKER 


B 


CTAPEX 


2128 


20 


94 




NOP 


TDFEXT 


2129 


20 


95 




C 


*AINX+18»WHC0PS 


2130 


20 


96 




BE 


SUBSET 


2131 


20 


97 




C 


MAINXX+19t INCLD 


2132 


20 


98 




BE 


SUBSET 


2133 


20 


99 




C 


PAINX+19,HEADR 


2134 


21 


00 




BE 


SOLUT 


2135 


21 


01 




MCW 


CHARCCMAINX+74 


2136 


21 


02 




LCA 


LOPUT+1,100 


2137 


21 


03 




B 


SBRCT 


2138 


21 


04 




B 


COOKER 


2139 


21 


05 


EGF1A 


MCW 


ADDCAL,INDEX1 


2140 


21 


06 


CGMBL 


BCE 


CEXIT, INDEX1-2.Y 


2141 


21 


07 




C 


0+Xl,» » 


2142 


21 


08 




SAR 


INDEX1 


2143 


21 


09 




BE 


CEXIT 


2144 


21 


10 




B^ 


C0MBL,1+X1 


2145 








un 


t» i.i r> c: v t m n u cct 


2146 


21 


12 


* 






2147 


21 


13 


* CREATE COMMENTS CARD FOR U 


2148 


21 


14 


* 






2149 


21 


15 


UNKNWN 


8 


NORQT 


2150 


21 


16 




SW 


UX1 


2151 


21 


17 




MCW 


3+Xl,MAINX+10 


2152 


21 


18 




B 


SBROT 


2153 


21 


19 




B 


COMBL 


2154 


21 


20 


CEXIT 


cs 


CALLT 


2155 


21 


21 




cs 




2156 


21 


22 




cw 


100 


2157 


21 


23 




MCW 


*999«,PREVS 


2158 


21 


24 


CEXIT1 


B 





2159 


21 


25 


SBGRD 


S8R 


GRAND+3 


2160 


21 


26 




S 


INDEX1+1 


2161 


21 


27 


GRAND 


BW 


0,0+X2 


2162 


21 


28 




S 


•10SINDEX2+1 


2163 


21 


29 




A 


»1»»INDEX1 



SFX CT LOCN INSTRUCTION TYPE CARD 



X 


5 


3518 


B D92 


/ 


305 


X 


7 


3523 


C 008 


H75 


305 


X 


5 


3530 


B F56 


S 


306 


X 


7 


3535 


M W08 


089 


306 


X 


8 


3542 


B D92 


087 Y 


306 


X 


4 


3550 


t 006 




306 


X 


7 


3554 


C 0*0 


008 


306 


X 


4 


3561 


Q 089 




306 


X 


5 


3565 


B E42 


/ 


307 


X 


8 


3570 


V D92 


0*1 1 


307 


X 


4 


3578 


) 006 




307 


X 


4 


3582 


, 0*1 




307 


X 


4 


3586 


, V98 




307 


X 


4 


3590 


B W50 




307 


X 


4 


3594 


N T44 




307 


X 


7 


3598 


C 019 


W05 


308 


X 


5 


3605 


B J19 


S 


308 


X 


7 


3610 


C 020 


U59 


308 


X 


5 


3617 


B J19 


S 


308 


X 


7 


3622 


C 020 


Y91 


308 


X 


5 


3629 


B E23 


S 


308 


X 


7 


3634 


M U61 


075 


309 


X 


7 


3641 


L 198 


100 


309 


X 


4 


3648 


B 033 




309 


X 


4 


3652 


B E90 




309 


X 


7 


3656 


M W08 


089 


309 


X 


8 


3663 


B G26 


087 Y 


309 


X 


7 


3671 


C 0*0 


H48 


310 


X 


4 


3678 


Q 089 




310 


X 


5 


3682 


B G26 


S 


310 


X 


8 


3687 


V F63 


0*1 1 


310 


A 


n 
O 




\ t r\ j"\ -i 

V UOJ 


tlAA * 

V*0 JL 


310 



X 


4 


3703 


B 


T75 




310 


X 


4 


3707 


t 


0*1 




311 


X 


7 


3711 


M 


0*3 


Oil 


311 


X 


4 


3718 


B 


033 




311 


X 


4 


3722 


B 


F63 




311 


X 


4 


3726 


/ 


-73 




311 


X 


1 


3730 


/ 






311 


X 


4 


3731 


) 


100 




311 


X 


7 


3735 


M 


H75 


H72 


312 


X 


4 


3742 


B 


000 




312 


X 


4 


3746 


H 


G57 




312 


X 


4 


3750 


S 


090 




312 


X 


8 


3754 


V 


000 


0-0 1 


312 


X 


7 


3762 


S 


108 


095 


312 


X 


7 


3769 


A 


H59 


089 


313 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2164 


21 


30 




B 


GRAND 


2165 


21 


31 


CALLCD 


CS 


LMAINX 


2166 


21 


32 




B 


CTAPE 


2167 


21 


33 




NOP 


TDFEXT 


2168 


21 


34 




MCW 


CHARCS»MAINX+74 


2169 


21 


35 




SW 


1 


2170 


21 


36 




B 


THRU 


2171 


21 


37 


IOCSAV 


dcw 


=4 


2172 


21 


38 


CHAINX 


MCW 


»R*,MAINX+74 


2173 


21 


39 




B 


WHYYY 


2174 


21 


40 


MIDLE 


MCW 


INDEX3,DECT8+X2 


2175 


21 


41 




B 


LOWER 


2176 


21 


42 


A8CVE 


MCW 


INDEX3,DECT8+X2 


2177 


21 


43 




B 


BELOW 


2178 


21 


44 




LTORG 
OCW 


* 
«B» 

*N» 
t « 

«7» 
i i 






1874 


SAVXL2 




=03 

»DCW« 
• i 

•1» 
•52» 

•510» 
+ 10 
»R» 
»3» 






1978 


PREVS 




=03 

I OOQ I 

J 9 jr 






2000 






•8 » 

«)00» 

'690' 

»15» 

'51* 

•015' 

*04« 






2063 


SAVX3 




=03 

•I99» 

•I' 

•I9F« 

•M« 

•l'O 1 



2179 


21 


45 


* 


2180 


21 


46 


* OUTPUT AREA 


2181 


21 


47 


» 


2182 


21 


48 


ORG 3912 


2183 


21 


49 


OUTPT DA 1X86, G 



SFX 


CT 


LOCN 


INSTRUCTION 


TYPE 


card 


X 


4 


3776 


B 


G54 




313 


X 


4 


3780 


/ 


086 




313 


X 


4 


3784 


B 


W50 




313 


X 


4 


3788 


N 


T44 




313 


X 


7 


3792 


M 


U60 075 




313 


X 


4 


3799 


t 


001 




313 


X 


4 


3803 


B 


N82 




314 


X 


4 


3810 








314 


X 


7 


3811 


M 


H67 075 




314 


X 


4 


3818 


8 


K97 




314 


X 


7 


3822 


M 


099 UR2 




314 


X 


4 


3829 


B 


V46 




314 


X 


7 


3833 


M 


099 UR2 




314 


X 


4 


3840 


B 


P94 




315 


X 






3844 






X 


1 


3844 






LIT 


315 


X 


1 


3845 






LIT 


315 


X 


3 


3848 






LIT 


315 


X 


1 


3849 






LIT 


315 


X 


1 


3850 






LIT 


315 


X 


3 


3853 






AREA 


315 


X 


3 


3856 






LIT 


316 


X 


2 


3858 






LIT 


316 


X 


1 


3859 






LIT 


316 


X 


2 


3861 






LIT 


316 


X 


3 


3864 






LIT 


316 


X 


2 


3866 






LIT 


316 


X 


1 


3867 






LIT 


316 


X 


1 


3868 






LIT 


317 


X 


1 


3869 






LIT 


317 


X 


3 


3872 






AREA 


317 


V 


•a 


1Q7C 






1 T T 


it -r 


X 


5 


3880 






LIT 


317 


X 


3 


3883 






LIT 


317 


X 


3 


3886 






LIT 


317 


X 


2 


3888 






LIT 


318 


X 


2 


3890 






LIT 


318 


X 


3 


3893 






LIT 


318 


X 


2 


3895 






LIT 


318 


X 


3 


3898 






AREA 


318 


X 


3 


3901 






LIT 


318 


X 


1 


3902 






LIT 


318 


X 


3 


3905 






LIT 


319 


X 


1 


3906 






LIT 


319 


X 


2 


3908 






LIT 


319 



3912 



3912 
3997 



319 



1401 AUTOCODER - PASS 2 - MACRO-GENERATOR- VERSION 3 



3726L 



PAGE 49 



SEQ PG LIN LABEL 



2184 21 50 

2185 21 51 

2186 21 52 



LOPUT 



OP 


OPERANDS 


DCw 


i t 


ECU 


*-l 


EX 




END 


START 



SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


X 


1 


3998 


GMARK 


320 


X 




3997 






X 






8 000 


321 


X 






/ ZOO 080 


324 



3 ERRORS 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



, 008015,019026, 30, 034041 » 045 ,053, 0570571026 

LG68112, 102106, 113/101099/ 199, 027A070028)G27B0010270B0261, 001/001 11310 

,008015,022029,036040,047054,061068,072/061039 ,0010011040 



1401 AUTQCOCER-PASS 3-TRANSLATGR-INITIAL -VERSION 3 



3731L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


101 


1 


01 


003 


JOB 


1401 AUTQCOCER-PASS 


102 


1 


02 




CTL 


630 1 


103 


1 


03 


• 






104 


1 


04 


♦EQUATES 




105 


1 


05 


* 






106 


1 


06 


INTAPE 


EQU 


(U6 


107 


1 


07 


OUTAPE 


EQU 


CU4 


108 


1 


08 


SYSTAP 


EQU 


(Ul 


109 


1 


09 


INITAP 


EQU 


(UO 


110 


1 


10 


XXXX 


EQU 


0000 


111 


1 


11 


PRINT 


EQU 


200 


112 


1 


12 


LIBRN 


EGU 


000 


113 


1 


13 


* 






114 


1 


14 


*TAPE ! 


REDUNDANCY ROUTINE 


115 


1 


15 


• 






116 


1 


16 




ORG 


RTEND+1 


117 


1 


17 


TPERR 


S8R 


XL3 


118 


1 


18 




SBR 


REDXT+3 


119 


1 


19 




MZ 


+9,XL3 


120 


1 


20 




MCW 


400G-10+X3,TPINS+7 


121 


1 


21 




MN 


TPINS+3,BSPl+3 


122 


1 


22 




MCW 


TPINS+7,INST2+7 


123 


1 


23 


8SP1 


BSP 


INITAP 


124 


1 


24 




BCE 


WRTRD,TPINS+7,W 


125 


1 


25 




MCW 


+9,RDCT=1 


126 


1 


26 


TPINS 


RT 


INITAP, XXXX 


i.£. 1 


-» 






a t-n 

oct\ 


r» r\ tr n r» 

ftucKrv 


128 


1 


28 


REOXT 


B 


XXXX 


129 


1 


29 


RDERR 


MN 


TPINS+3,8SP2+3 


130 


1 


30 


BSP2 


BSP 


INITAP 


131 


1 


31 




S 


+1.RDCT 


132 


1 


32 




BWZ 


TPINS,RDCT,8 


133 


1 


33 




MN 


TPINS+3,TPHLT+6 


134 


1 


34 


TPHLT 


H 


XXXX, 390 


135 


1 


35 




MCW 


TPINS+7,*+8 


136 


1 


36 




RT 


INITAP, XXXX 


137 


1 


37 




BSS 


BSP1,E 


138 


1 


38 




H 


XXXX, 302 


139 


1 


39 




B 


REDXT 


140 


1 


40 


WRTRD 


SKP 


SYSTAP 


141 


1 


41 




BCE 


SBCTR,WRTCR-1,5 


142 


1 


42 




A 


+1,WRTCR=2 


143 


1 


43 


INST2 


WT 


INITAP, XXXX 


144 


1 


44 




BER 


BSP1 


145 


1 


45 




B 


REDXT 


146 


1 


46 


S8CTR 


S 


WRTCR 


147 


1 


47 




MN 


TPINS+3,**7 



SFX CT LOCN INSTRUCTION TYPE CARD 



3-TRANSLATOR-INITIAL -VERSION 3 



(U6 

(U4 

(Ul 

(UO 

0000 

0200 

0000 









2210 










4 


2210 


H 


099 






4 




4 


2214 


H 


K82 






4 




7 


2218 


Y 


M60 


099 




4 


BRING IN INSTRUCTION 


7 


2225 


M 


no 


K73 




4 


THAT CAUSED 


7 


2232 


D 


K69 


K49 




4 


REDUNDANCY 


7 


2239 


M 


K73 


L82 




4 


BACKSPACE TAPE * 


5 


2246 


U 


IUO 


B 




5 


Q. WRITE REDUNDANCY 


8 


2251 


& 


L55 


K73 


W 


5 


INITIALIZE COUNTER 


7 


2259 


M 


M60 


M61 




5 


RE-READ 


8 


2266 


M 


<U0 


000 


R 


5 




c 

'J 


TIT/. 
Ct It 


& 


fNQJ 






c 


EXIT 


4 


2279 


B 


000 






5 




7 


2283 


D 


K69 


K93 




6 


BACKSPACE AGAIN 


5 


2290 


U 


<U0 


& 




6 


REDUCE COUNTER 


7 


2295 


S 


M62 


M61 




6 


Q. 10 SUCCESSIVE READS 


8 


2302 


V 


K66 


M61 


B 


6 




7 


2310 


D 


K69 


L23 




6 


HALT 


7 


2317 


• 


000 


390 




7 




7 


2324 


M 


K73 


L38 




7 


RE-READ 


8 


2331 


M 


(UO 


000 


R 


7 


DETERMINE OPTION 


5 


2339 


B 


K46 


E 




7 


HALT AGAIN 


7 


2344 


• 


000 


302 




7 


EXIT 


4 


2351 


B 


K79 






7 


ERASE TAPE 


5 


2355 


U 


(Ul 


E 




8 


Q. FIFTY SKIPS 


8 


2360 


B 


L92 


M63 


5 


8 


INCREASE COUNTER 


7 


2368 


A 


M62 


M64 




8 


RE-WRITE 


8 


2375 


M 


(UO 


000 


W 


8 


Q. REDUNDANT AGAIN 


5 


2383 


B 


K46 


L 




8 




4 


2388 


B 


K79 






8 


RESET COUNTER 


4 


2392 


S 


M64 






9 




7 


2396 





K69 


M09 




9 



1401 AUTOCODER-PASS 3-TRANSLATGR-INITIAL -VERSION 3 



37311- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


148 


1 


48 




H 


XXXX.360 


149 


1 


49 




B 


INST2 


150 


1 


5C 


* 






151 


1 


51 


* NOISE RECORD ROUTINE 


152 


1 


52 


* 






153 


1 


53 


NCISE 


SBR 


XL3 


154 


1 


54 




S8R 


NSXT+3 


155 


1 


55 




MZ 


+9,XL3 


156 


1 


56 


N2 


8CE 


400G-12+X3, X 


157 


1 


57 




CHAIN 


12 


158 








BCE 




159 








BCE 




160 








BCE 




161 








BCE 




162 








BCE 




163 








BCE 




164 








BCE 




165 








BCE 




166 








BCE 




167 








BCE 




168 








BCE 




169 








BCE 




170 


1 


58 


NSXT 


B 


XXXX 


171 


1 


59 


GBJCOR 


DCW 


»3» 


172 


1 


60 


HIVAL 


DCW 


i 999 1 


173 


1 


61 


MANAM 


DCW 


• S5 * 


174 


1 


62 




LTORG 

DCW 


* 

+9 






125 


RDCT 




=01 
+ 1 






142 


WRTCR 




=02 


175 




03 


* 






176 


1 


64 


♦BEGIN 


OF MAIN LINE 


177 


1 


65 


* 






178 


1 


66 


BEGIN 


RWD 


INTAPE 


179 


1 


67 




RWO 


5 


180 


1 


68 




CS 


3999 


181 


1 


69 




RTW 


SYSTAP,001 


182 


1 


70 




NOP 





183 


1 


71 




BER 


TPERR 


184 


1 


72 




SW 


GMK1,GMK2 


185 


1 


73 




CW 


SYSMK2 


186 


1 


74 




CS 


080 


187 


1 


75 




SW 


EQVADD 


188 


1 


76 




RWD 


OUTAPE 


189 


1 


77 




MCW 


+FREE+l3tN2+6 


190 


1 


78 




MCW 


•N«,N3 


191 


1 


79 




MCW 


•N»»N4 


192 


1 


80 




RT 


5,FRE£-H 


193 


1 


81 




B 


NOISE 



SFX CT LOCN INSTRUCTION TYPE CARD 



XXXX 



HALT 



SCAN FOR GROUP MARK 



OBJECT CORE SIZE CODE 
HIGHEST OBJECT ADDRESS 
EQUALS = OR A 



REWIND INPUT TAPE 
REWIND 5 

CLEAR INPUT AREA 
READ LOWER HALF OF 
PASS 3 

INITIALIZE GROUP MARKS 



CLEAR READ 
INITIALIZE 
RWD OUTPUT 



AREA 

TO UNDEF 

TAPE 



CRIPPLE TEST FOR NOISE 

READ IN MACRO FACTOR 
WHICH IS 



2403 
2410 



• 000 360 
B L75 



4 


2414 


H 


099 






9 


4 


2418 


H 


M52 






9 


7 


2422 


Y 


M60 


099 




9 


8 


2429 


8 


IH8 


000 


MACRO 


10 


1 


2437 


B 






GEN 


10 


1 


2438 


B 






GEN 


10 


1 


2439 


B 






GEN 


10 


1 


2440 


B 






GEN 


10 


1 


2441 


B 






GEN 


10 


1 


2442 


B 






GEN 


10 


1 


2443 


8 






GEN 


11 


1 


2444 


B 






GEN 


11 


1 


2445 


B 






GEN 


11 


1 


2446 


B 






GEN 


11 


1 


2447 


B 






GEN 


11 


1 


2448 


B 






GEN 


11 


4 


2449 


B 


000 






11 


1 


2453 










12 


5 


2458 










12 


1 


2459 










12 






2460 








1 


2460 








LIT 


12 


1 


2461 








AREA 


12 


1 


2462 








LIT 


12 


2 


2464 








AREA 


12 


5 


2465 


U 


(U6 


R 




13 


5 


2470 


U 


(U5 


R 




13 


4 


2475 


/ 


199 






13 


8 


2479 


L 


(Ul 


001 


R 


13 


4 


2487 


N 


000 






13 


5 


2491 


B 


K10 


L 




13 


7 


2496 


t 


189 


187 




13 


4 


2503 


) 


+03 






14 


4 


2507 


/ 


080 






14 


4 


2511 


t 


A69 






14 


5 


2515 


U 


<U4 


R 




14 


7 


2520 


M 


R20 


M35 




14 


7 


2527 


M 


R21 


573 




14 


7 


2534 


M 


R21 


558 




14 


8 


2541 


M 


{U5 


101 


R 


15 


4 


2549 


B 


M14 






15 



1401 AUTOCODER-PASS 3-TRANSLAT0R-INITI AL -VERSION 3 



3731L 



PAGE 



*•# V» %c 


PG 


LIN 


LABEL 


OP 


OPERANDS 


194 


1 


82 




BER 


TPERR 


195 


1 


83 




RWO 


5 


196 


1 


84 




MCW 


FREE+3,J08LBL=3 


197 


1 


85 




2A 


•101SALTRNC 


198 


1 


86 


• 






199 


1 


87 


* PROCESS JOB CARO 


200 


1 


88 


* 






201 


1 


89 




B 


GET 


202 


1 


90 




BCE 


GENJ0B,FREE*6,* 


203 


1 


91 




C 


FREE-He.'JOB 1 


204 


1 


92 




BU 


GENJOB 


205 


1 


93 


CGDJOB 


MCW 


J0BLBL,FREE+8 


206 


1 


94 




WT 


0UTAPE»FREE+1 


207 


1 


95 




NOP 





208 


1 


96 




BER 


TPERR 


209 


1 


97 




A 


+1,ALTRN0 


210 


1 


98 




B 


GET 


211 


1 


99 




MCW 


•B»,N3 


212 


2 


OC 




mcw 


»M»,N4 


213 


2 


01 


* 






214 


2 


02 


♦PROCESS CONTROL CARD 


215 


2 


03 


* 






216 


2 


04 




c 


FREE+18,«CTL» 


217 


2 


05 




BU 


CHNAD 


218 


2 


06 




CS 





219 


2 


07 




SBR 


CLEAR+3 


220 


2 


08 




SBR 


SVSZ=3 


221 


2 


09 




BWZ 


PR0SZ,CLEAR+3,2 


222 


2 


10 


CLEAR 


CS 


15999 


223 


2 


11 




SBR 


CLEAR+3 


224 


2 


12 




C 


CLEAR*3,'I99» 


225 


2 


±3 




BU 




226 


2 


14 


PROSZ 


MCW 


»6«»PH0LD=1 


227 


2 


15 




BWZ 


csz,svsz,e 


228 


2 


16 




MCW 


•SSPHOLD 


229 


2 


17 




BWZ 


CSZ.SVSZ.K 


230 


2 


18 




MCW 


»4« ,PHOLO 


231 


2 


19 




BhZ 


CSZ,SVSZ,S 


232 


2 


20 




MCW 


•3SPH0LD 


233 


2 


21 


CSZ 


C 


FREE+21,PH0LD 


234 


2 


22 




BE 


INOBJ 


235 


2 


23 




MESSG 


* INCORRECT PROCESSOR MACHINE 


236 




02 




CS 


332 


237 




03 




CS 




238 




04 




MCW 


•INCORRECT PROCESSOR MACHINE 


239 




05 




W 




240 




07 




BCV 


* + 5 


241 




08 




B 


*+3 


242 




09 




CC 


1 


243 


2 


24 




MCW 


PHOLD.FREE+21 



SFX CT LOCN INSTRUCTION TYPE CARD 



PASSED ON FROM PASS 2 
AND SAVE VALUE 

RESET ALTER NUMBER 



Q. CONTROL CARD 



CLEAR ABOVE 4K 

Q. END OF CLEARING 



SIZE SPECIFIEDS42 



SIZE SPECIFIED', 42+200 



5 


2553 


B 


K10 


L 


5 


2558 


U 


<U5 


R 


? 


2563 


M 


103 


R24 


7 


2570 


4- 


R27 


184 



15 
15 
15 
15 



GET FIRST RECORD 


4 


2577 


B 


524 




16 


Q. COMMENTS CARD 


8 


2581 


B 


Q53 


106 * 


16 


Q. JOB CARD 


7 


2589 


C 


118 


R30 


16 




5 


2596 


B 


Q53 


/ 


16 


PICKUP FACTOR 


7 


2601 


M 


R24 


108 


16 


PUT JOB CARD 


8 


2608 


M 


CU4 


101 W 


16 




4 


2616 


N 


000 




17 




5 


2620 


B 


K10 


L 


17 




7 


2625 


A 


R31 


184 


17 


GET NEXT RECORD 


4 


2632 


B 


524 




17 


RESET NOISE ROUTINE 


7 


2636 


M 


R32 


573 


17 




7 


2643 


M 


R33 


558 


17 



7 


2650 


C 


118 


R36 




18 


5 


2657 


B 


Q85 


/ 




18 


4 


2662 


/ 


000 






18 


4 


2666 


H 


085 






18 


4 


2670 


H 


R39 






18 


8 


2674 


V 


P02 


085 


2 


18 


4 


2682 


/ 


191 






18 


4 


2686 


H 


085 






19 


7 


2690 


C 


085 


R42 




19 




1 z. <v-» 
£.K3*7 t 


a 




/ 




A 7 


7 


2702 


M 


R43 


R44 




19 


8 


2709 


V 


P54 


R39 


B 


19 


7 


2717 


M 


R45 


R44 




19 


8 


2724 


V 


P54 


R39 


K 


20 


7 


2732 


M 


R46 


R44 




20 


8 


2739 


V 


P54 


R39 


S 


20 


7 


2747 


M 


R47 


R44 




20 


7 


2754 


C 


121 


R44 




20 


5 


2761 


B 


P97 


S 


MACRO 


21 


4 


2766 


/ 


332 




GEN 


21 


1 


2770 


/ 






GEN 


21 


7 


2771 


M 


R89 


242 


GEN 


21 


1 


2778 


2 






GEN 


21 


5 


2779 


B 


P88 


• 


GEN 


21 


4 


2784 


B 


P90 




GEN 


21 


2 


2788 


F 


1 




GEN 


22 


7 


2790 


M 


R44 


121 




22 



1401 AUT0C0CER-PASS 3-TRANSLATQR-INITIAL -VERSION 3 



3731L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 






SFX CT 


LOCN 


INSTRUCTION 


TYPE 


CARD 


244 


2 


25 


INGBJ 


MCW 


FREE+22,GBJC0R 


SAVE OBJECT MACH CODE 


7 


2797 


M 


122 


M53 




22 


245 


2 


26 




2A 


0BJC0R,XL1 






7 


2804 


+ 


M53 


089 




22 


246 


2 


27 




S 


+3Q#XL1+1 






7 


2811 


S 


R91 


090 




22 


247 


2 


28 




A 


XL1 


CODE - 


-HIVAL- 


4 


2818 


A 


089 






22 


248 


2 


29 




MCW 


0BJTBL+Xl*HIVAL-3 






7 


2822 


M 


R/l 


M55 




23 


249 


2 


30 




C 


FRE£+22,»3» 


Q. OBJECT CORE GT 4K 


7 


2829 


C 


122 


R47 




23 


250 


2 


31 




BL 


GETMN 






5 


2836 


B 


419 


T 




23 


251 


2 


32 




BCE 


SETHI, FREE+24,1 


Q* MA 


HARDWARE 


8 


2841 


B 


Q99 


124 1 




23 


252 


2 


33 




6 


IS4K 






4 


2849 


B 


Q92 






23 


253 


2 


34 


GENJCB 


BSP 


INTAPE 






5 


2853 


U 


(U6 


B 




23 


254 


2 


35 




MCW 


FREE+74,FREE+73 






7 


2858 


M 


174 


173 




24 


255 


2 


36 




MCW 


•JOB «,FREE+2Q 


GENERATE JOB CARD 


7 


2865 


M 


R96 


120 




24 


256 


2 


37 




MCW 








1 


2872 


M 








24 


257 


2 


38 




MCW 


FREE+74,FREE+15 


BLANK 


AREA 


7 


2873 


M 


174 


115 




24 


258 


2 


39 




MCW 








1 


2880 


M 








24 


259 


2 


40 




B 


C0DJ08 






4 


2881 


B 


001 






24 


260 


2 


41 


CHNAD 


MCW 


+SUBXL.INTXT+3 


INITIALIZE EXIT 


7 


2885 


M 


R99 


463 




24 


261 


2 


42 


IS4K 


MCW 


•A 1 »MANAM 






7 


2892 


M 


+00 


M59 




25 


262 


2 


43 


SETHI 


MCW 


•03»,HIVAL-3 






7 


2899 


M 


+02 


M55 




25 


263 


2 


44 




B 


GETMN 






4 


2906 


B 


419 






25 


264 


2 


45 


OBJTBL 


DCW 


•03* 






2 


2911 










25 


265 


2 


46 




DCW 


»07» 






2 


2913 










25 


266 


2 


47 




DCW 


»11» 






2 


2915 










25 


267 


2 


48 




DCW 


•15« 






2 


2917 










25 


268 


2 


49 




LTORG 


* 










2918 












189 




DCW 


+FREE+13 






3 


2920 


113 




ADCON 


26 












•N« 






1 


2921 








LIT 


26 






196 


JOBLBL 




=03 

•101 1 

•JOB* 

+ 1 

«B« 

•M 1 

•CTL« 






3 
3 
3 

1 

i 

A. 
1 

3 


2924 
2927 
2930 
2931 

2933 
2936 








AREA 
LIT 
LIT 
LIT 

1 T T 

LIT 

LIT 


26 
26 
26 
26 

27 
27 






220 


SVS2 




=03 

«I99« 

•6» 






3 
3 
1 


2939 
2942 
2943 








AREA 

LIT 

LIT 


27 
27 
27 






226 


PHCLD 




=01 

•5» 

•4« 
• 3 # 






1 
1 
1 
1 


2944 
2945 
2946 
2947 








AREA 
LIT 
LIT 
LIT 


27 
27 

28 
28 






238 






•INCORRECT PROCESSOR MACHINE 


SIZE SPECIFIED 1 


42 


2989 








LIT 


30 












+ 30 






2 


2991 








LIT 


30 






255 






•JOB • 






5 


2996 








LIT 


30 






260 






+SUBXL 






3 


2999 


634 




ADCON 


30 












•A» 






1 


3000 








LIT 


30 












•03' 






2 


3002 








LIT 


31 


269 


2 


50 


SYSMK2 


DCW 


• i 


SYSTEM GROUP MARK 


1 


3003 










31 


270 


2 


51 




XFR 


000 










B 


000 






32 



1401 AUTOCODER-PASS 3 LEFT MAIN LINE 



-VERSION 3 



3732L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


271 


2 


52 




JOB 


1401 AUTOCODE 


272 


2 


53 


* 






273 


2 


54 


•INITIALIZATION OF INDEX L 


274 


2 


55 


» 






275 


2 


56 




XINIT XLltXL2»XL3 


276 




01 


XL1 


EQU 


089 


277 




02 


089 


DCW 


000 


278 




04 


091 


DC 


00 


279 




05 


XL2 


EQU 


094 


280 




06 


094 


DCW 


000 


281 




08 


096 


DC 


00 


282 




09 


XL3 


EQU 


099 


283 




1C 


099 


DCW 


000 


284 




12 


100 


DC 





285 


2 


57 


« 






286 


2 


58 


♦ FREE 


FORM 


INPUT AREA 


287 


2 


59 


» 






288 


2 


60 




ORG 


101 


289 


2 


61 


FREE 


EQU 


100 


290 


2 


62 




DA 


1X86 


291 


2 


63 






1,1 


292 


2 


64 






19,19 


293 


2 


65 






16,16 


294 


2 


66 






6,6 


295 


2 


67 






21,21 


296 


2 


68 


ALTRNO 




81,84 


297 


2 


69 






85,85 


298 


2 


70 


GMK2 


DC 


t t 


299 


2 


71 


* 






300 


2 


72 


•FIXED 


FORM 


INPUT AREA 


301 


2 


73 


• 






3U£. 


2 








333 


303 


2 


75 


INPUT 


EQU 


* 


304 


2 


76 




DA 


1X86 


305 


2 


77 






40,40 


306 


2 


78 






17,17 


307 


2 


79 






28,28 


308 


2 


80 






39,39 


309 


2 


81 






76,76 


310 


2 


82 


« 






311 


2 


83 


• GET 


UPPER 


HALF OF PASS 3 


312 


2 


84 


* 






313 


2 


85 


GETMN 


RTW 


SYSTAP, BEGIN 


314 


2 


86 




NOP 





315 


2 


87 




BER 


TPERR 


316 


2 


88 




MCW 


MANAM,MASYM-3 


317 


2 


89 




RTW 


SYSTAP, 0VL2 


318 


2 


90 




NOP 





319 


2 


91 




BER 


TPERR 


320 


2 


92 


INTXT 


B 


NUREC 



SFX CT LOCN INSTRUCTION TYPE CARD 



■VERSION 3 





MACRO 




0089 


GEN 




0089 


GEN 


35 


0091 


GEN 


35 


0094 


GEN 




0094 


GEN 


35 


0096 


GEN 


35 


0099 


GEN 




0099 


GEN 


35 


0100 


GEN 


35 


0101 






0100 






0101 0186 




35 


0101 


FIELD 


35 


0119 


FIELD 


35 


0116 


FIELD 


35 


0106 


FIELD 


36 


0121 


FIELD 


36 


0184 


FIELD 


36 


0185 


FIELD 


36 


0187 




37 





V 33 3 






0332 








0333 


0418 




37 


0372 




FIELD 


37 


0349 




FIELD 


37 


0360 




FIELD 


37 


0371 




FIELD 


38 


0408 




FIELD 


38 



8 


0419 


L 


(Ul 


M65 


4 


0427 


N 


000 




5 


0431 


B 


K10 


L 


7 


0436 


M 


M59 


B93 


8 


0443 


L 


(Ul 


626 


4 


0451 


N 


000 




5 


0455 


B 


K10 


L 


4 


0460 


B 


626 





38 
38 
38 
38 
38 
39 
39 
39 



1401 AUTOCODER-PASS 3 LEFT MAIN LINE 



-VERSION 3 



3732L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


321 


2 


93 


* 






322 


2 


94 


* GET 


FIXED I 


FORM OVERLAY 


323 


2 


95 


« 






324 


2 


96 


GTFIX 


RTW 


SYSTAP, 0VL2 


325 


2 


97 




NOP 





326 


2 


98 




BER 


TPERR 


327 


2 


99 




BSP 


SYSTAP 


328 


3 


00 




BSP 


SYSTAP 


329 


3 


01 




BW 


PROFIX,FREESW 


330 


3 


02 




B 


RSTMOD 


331 


3 


03 


* 






332 


3 


04 


* GET 


FREE FORM OVERLAY 


333 


3 


05 


* 






334 


3 


06 


GTFRE 


RTW 


SYSTAP,0VL2 


335 


3 


07 




NOP 





336 


3 


08 




BER 


TPERR 


337 


3 


09 




B 


PSTNU 


338 


3 


10 


* 






339 


3 


11 


*GET ROUTINE 




340 


3 


12 


* 






341 


3 


13 


GET 


SBR 


GETXT+3 


342 


3 


14 




B 


RDTAP 


343 


3 


15 




MCW 


INAREA+79,FREE+8Q 


344 


3 


16 




CHAIN 


4 


345 








MCW 




346 








MCW 




347 








MCW 




348 








MCW 




349 


3 


17 




MCW 


INAREA+85,FREE+86 


350 


3 


18 


GETXT 


B 


XXXX 


351 


3 


19 


ROTAP 


SBR 


RDXT+3 


*% *- *4 

3?C 








urn 




353 


3 


21 




RT 


INTAPEt INAREA 


354 


3 


22 


N3 


8 


NOISE 


355 


3 


23 




BER 


TPERR 


356 


3 


24 


RDXT 


B 


XXXX 


357 


3 


25 


* 






358 


3 


26 


♦PUT ROUTINE 




359 


3 


27 


* 






360 


3 


28 


PUT 


SBR 


PUTXT+3 


361 


3 


29 




CW 


FREE+21 


362 


3 


30 




WT 


0UTAPE,FREE+1 


363 


3 


31 




NOP 





364 


3 


32 




BER 


TPERR 


365 


3 


33 




SW 


FREE+21 


366 


3 


34 




A 


+1, ALTRNO 


367 


3 


35 


PUTXT 


B 


XXXX 


368 


3 


36 


0VL2 


DCW 





369 


3 


37 




OCW 


i t 


370 


3 


38 




XFR 






SFX CT LOCN INSTRUCTION TYPE CARD 



READ TAPE 



CHECK FOR NOISE 



INCREASE ALTER NUMBER 



SYSTEM GROUP MARK 



8 


0464 


L (Ul 626 R 


39 


4 


0472 


N 000 


39 


5 


0476 


8 K10 L 


39 


5 


0481 


U (Ul B 


39 


5 


0486 


U tUl B 


40 


8 


0491 


V 661 H09 1 


40 


4 


0499 


B 638 


40 



8 


0503 


L (Ul 626 R 


40 


4 


0511 


N 000 


40 


5 


0515 


8 K10 L 


40 


4 


0520 


B 630 


40 



4 


0524 


H 


553 






41 


4 


0528 


B 


554 






41 


7 


0532 


M 


182 


180 


MACRO 


41 


1 


0539 


M 






GEN 


41 


1 


0540 


M 






GEN 


41 


1 


0541 


M 






GEN 


41 


1 


0542 


M 






GEN 


41 


7 


0543 


M 


188 


186 




42 


4 


0550 


B 


000 






42 


4 


0554 


H 


585 






42 


-* 
i 


OCC Q 


u 


R43 






A O 


8 


0565 


M 


(U6 


I03 


R 


42 


4 


0573 


B 


M14 






42 


5 


0577 


B 


K10 


L 




42 


4 


0582 


B 


000 






43 



4 


0586 


H 


625 




4 


0590 


) 


121 




8 


0594 


M 


{U4 


101 


4 


0602 


N 


000 




5 


0606 


B 


K10 


L 


4 


0611 


f 


121 




7 


0615 


A 


R44 


184 


4 


0622 


8 


000 




1 


0626 








1 


0627 









B 000 



43 
43 
43 
43 
43 
43 
44 
44 
44 
44 
45 



1401 AUTOCODER-PASS 3 LEFT MAIM LINE -VERSION 3 3734L PAGE 7 

SEQ PG LIN LA8EL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 



1401 AUTOCOCER-PASS 3 PROCESS FREE FORM -VERSION 3 



3734L 



PAGE 



SEQ PG LIN LABEL OP 



OPERANDS 



SFX CT LGCN INSTRUCTION TYPE CARD 



371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 

S ft <■» 

HV£. 

403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

I U 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 



JUB 



* 

• BEGI 

* 

NUREC 
PSTNU 
SU8XL 



1401 AUTOCODER-PASS 3 PROCESS FREE FORM -VERSION 3 
NNING OF NEW FREE FORM RECORD ANALYSIS 



CKCHN 
PRCHN 



BLNKX 



CHNLP 



ORG 

8 

B 

SW 

CW 

BCE 

BCE 

BCE 

BCE 

BCE 

BCE 

C 

BCE 

BCE 

BU 

B 

BU 

ZA 

BCE 

B 

ZA 

BCE 

B 

MCW 

BCE 

B 

MCW 

Q 
O 

c 

8L 
B 

MCW 
MCW 
BCE 
BCE 

MCW 

MCW 

MCW 

MCW 

MCW 

MCW 

MCW 

B 

MCW 

S 

c 



0VL2 

PUT 

GET 

MODESW 

FREESW 

NUR£CfFREE+6t* 

REG,FREE4-75* 

R£G,FREE+75,L 

NUREC, FREE+75.S 

NUREC, FREE+75,Z 

NUREC, FREE+85,R 

FREE+18, »CHA» 

CKCHN, FREE+75,C 

CKCHN, FREE+75,Y 

NUREC 

PRCHN 

REG 

FREE+22,WAREA2 

*+5,WAREA2>+ 

*+8 

WAREA2-1,WAREA2 

*+5,FREE+75,C 

♦+8 

'SNFREE + 75 

»+5,FREE+75,Y 

* + 8 

•Z«,FRE£+75 

rg i 

WAREA2,+00 

*+5 

PSTNU 

FREE+75,HLDCD=1 

«C»,FREE+75 

BLNKX, HLDCD,R 

BLNKX, HLCCD,S 

«Y«,FREE+75 

BLNK2,FREE+74 

FREE+74 

SAVOP 



FREE+74.FREE+5 

PUT 

FREE+74.FREE+11 

+1,WAREA2 

WAREA2,+0G 









0626 










4 


0626 


B 


586 






48 




4 


0630 


B 


524 






48 




4 


0634 


, 


+02 






48 




4 


0638 


) 


H09 






48 




8 


0642 


B 


626 


106 


* 


48 




8 


0650 


B 


991 


175 




48 




8 


0658 


B 


991 


175 


L 


49 




8 


0666 


B 


626 


175 


S 


49 




8 


0674 


B 


626 


175 


2 


49 




8 


0682 


B 


626 


185 


R 


49 




7 


0690 


C 


118 


R47 




49 




8 


0697 


B 


722 


175 


C 


50 




8 


0705 


B 


722 


175 


Y 


50 




5 


0713 


B 


626 


/ 




50 




4 


0718 


B 


727 






50 




5 


0722 


B 


991 


/ 




50 




7 


0727 


♦ 


122 


A14 




50 




8 


0734 


B 


746 


A14 


+ 


51 




4 


0742 


B 


753 






51 




7 


0746 


+ 


A13 


A14 




51 




8 


0753 


B 


765 


175 


C 


51 




4 


0761 


B 


772 






51 




7 


0765 


M 


R48 


175 




51 




8 


0772 


B 


784 


175 


Y 


52 




4 


0780 


B 


791 






52 




7 


0784 


M 


R49 


175 




52 




/, 


mot 


o 










ACCOUNT FOR CHAIN 00 


7 


0795 


C 


A14 


R51 




52 




5 


0802 


B 


811 


T 




52 




4 


0807 


B 


630 






52 




7 


0811 


M 


175 


R52 




53 




7 


0818 


M 


R53 


175 




53 




8 


0825 


B 


848 


R52 


R 


53 




8 


0833 


B 


848 


R52 


S 


53 




7 


0841 


M 


R54 


175 




53 




7 


0848 


M 


A55 


174 




54 




4 


0855 


M 


174 






54 




4 


0859 


M 


R88 






54 




1 


0863 


M 








54 




1 


0864 


M 








54 


BLANK PAGE/LINE 


7 


0865 


M 


174 


105 




54 




4 


0872 


B 


586 






54 


BLANK LABEL FIELD 


7 


0876 


M 


174 


111 




55 




7 


0883 


S 


R44 


A14 




55 




7 


0890 


C 


A14 


R51 




55 



1401 AUTOCGCER-PASS 3 PROCESS FREE FORM -VERSION 3 



37341- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


421 


3 


89 




BL 


CHNLP 


422 


3 


90 




B 


PSTNU 


423 


3 


91 


GENPS 


MCW 


«+l »,FREE+15 


424 


3 


92 




8 


PUT 


425 


3 


93 




MCW 


FREE+73»FREE+72 


426 


3 


94 




MCW 


•C»»FREE+75 


427 


3 


95 




MCW 


HIVAL.FREE+25 


428 


3 


96 




MCW 


•EQU * 


429 


3 


97 




MCW 




430 


3 


98 




MCW 


»$HIVAL +P » 


431 


3 


99 




MCW 


FREE+73 


432 


4 


00 




MCW 


+NURECGENPS + 3 


433 


4 


01 




MCW 


•BSISHIV 


434 


4 


02 




B 


NUREC 


435 


4 


03 


ISHIV 


NOP 


PSTNU 


436 


4 


04 




MCW 


HIVAL,FREE+25 


437 


4 


05 




MCW 


•B , ,PSSW2 


438 


4 


06 




B 


TSTRE 


439 


4 


07 


REG 


S 


XL3+1 


440 


4 


08 




S 




441 


4 


09 




s 




442 


4 


10 




C 


FREE+18,' » 


443 


4 


11 




BU 


SVUP3 


444 


4 


12 




BCE 


TSTRE, FREE+19, 


445 


4 


13 


SVUP3 


MCW 


FREE+20,SAVCP=9 


446 


4 


14 




MCW 




447 


4 


15 




C 


FREE+11, »$HIVAL» 


448 


4 


16 




BE 


ISHIV 


449 


4 


17 


PSSW2 


NOP 


TSTRE 


450 


4 


18 




C 


FREE+i0,«$P * 


451 


4 


19 




BE 


GENPS 


*tD£. 






t- ** -r n r- 

IOI INC 


O f f 

DWC 


rr r>r* enrcioc n 


453 


4 


21 




B 


TLUOP 


454 


4 


22 


STFUN 


MCW 


FREE+15,SAVCP-5 


455 


4 


23 




BW 


NUREC, EQVADD 


456 


4 


24 




C 


FREE+15,«3 » 


457 


4 


25 




BE 


E0J 


458 


4 


26 




8 


NUREC 


459 


4 


27 


ISREA 


SW 


FREE+12 


460 


4 


28 




LCA 


PREE+15, EQVADD 


461 


4 


29 




CW 


FREE+12 


462 


4 


30 




BCE 


TYPCL, FREE+15,+ 


463 


4 


31 




CHAIN 


3 


464 








BCE 




465 








BCE 




466 








BCE 




467 


4 


32 




B 


STFUN 


468 


4 


33 


TYPCL 


SW 


EQVAD0-2 


469 


4 


34 




BCE 


STFUN,FREE+12,+ 


470 


4 


35 




SW 


EQVADD-1 



SFX CT LOCN INSTRUCTION TYPE CARD 



TO HIGHEST ADDRESS OF 
OBJECT CORE 



SET NEW HIGHEST VALUE 



Q. HIVAL EQUATE PRESNT 

Q. ARITH MACRO PRESENT 

LOOKUP MNEMONIC 
Q. INSTRUCTION 



5 


0897 


8 


872 


T 


55 


4 


0902 


B 


630 




55 


7 


0906 


M 


R57 


115 


55 


4 


0913 


B 


586 




56 


7 


0917 


M 


173 


172 


56 


7 


0924 


M 


R53 


175 


56 


7 


0931 


M 


M58 


125 


56 


4 


0938 


M 


R62 




56 


1 


0942 


M 






56 


4 


0943 


M 


R72 




56 


4 


0947 


M 


173 




57 


7 


0951 


M 


R75 


909 


57 


7 


0958 


M 


R76 


969 


57 


4 


0965 


B 


626 




57 


4 


0969 


N 


630 




57 


7 


0973 


M 


M58 


125 


57 


7 


0980 


M 


R76 


+37 


58 


4 


0987 


B 


*53 




58 


4 


0991 


S 


100 




58 


1 


0995 


S 






58 


1 


0996 


s 






58 


7 


0997 


c 


118 


R79 


58 


5 


1004 


B 


*17 


/ 


58 


8 


1009 


B 


*53 


119 


59 


7 


1017 


M 


120 


R88 


59 


1 


1024 


M 






59 


7 


1025 


C 


111 


R94 


59 


5 


1032 


B 


969 


s 


59 


4 


1037 


n 


*53 




59 


7 


1041 


C 


110 


R99 


59 


5 


1048 


B 


906 


s 


60 


8 


1 fS C-2 


o 
u 






Art 


4 


1061 


B 


M65 




60 


7 


1065 


M 


115 


R83 


60 


8 


1072 


V 


626 


A69 1 


60 


7 


1080 


C 


115 


+01 


60 


5 


1087 


B 


Q75 


S 


61 


4 


1092 


B 


626 




61 


4 


1096 


, 


112 




61 


7 


1100 


L 


115 


A69 


61 


4 


1107 


) 


112 




61 


8 


1111 


B 


/26 


115 + 

MACRO 


61 


1 


1119 


B 




GEN 


61 


1 


1120 


B 




GEN 


62 


1 


1121 


B 




GEN 


62 


4 


1122 


B 


4=65 




62 


4 


1126 


t 


A67 




62 


8 


1130 


B 


*65 


112 + 


62 


4 


1138 


t 


A68 




62 



1401 AUT0C0CER-PASS 3 PROCESS FREE FORM -VERSION 3 



3734L 



PAGE 



10 



S6Q 


PG LIN 


LABEL 


OP 


OPERANDS 


471 


4 36 




8CE 


STFUN*FREE+13,+ 


472 


4 37 




sw 


EQVADD 


473 


4 38 




B 


STFUN 


474 


4 39 




DCtf 





475 


4 40 




DCK 


* i 


476 


4 41 




XFR 






SFX CT LOCN INSTRUCTION TYPE CARO 



SYSTEM GROUP MARK 



8 


1142 


B #65 


113 ♦ 


62 


4 


1150 


, A69 




63 


4 


1154 


B #65 




63 


1 


1158 






63 


1 


1159 






63 



B 000 



64 



1401 AUTQCOCER-PASS 3 PROCESS FIX FORM 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


477 


4 


42 




JOB 


1401 AUTGCOCER-PAS 


478 


4 


43 




ORG 


0VL2 


479 


4 


44 


* 






480 


4 


45 


•BEGINNING OF NEW FIXED FORM RE 


481 


4 


46 


* 






482 


4 


47 


ENTSPS 


B 


PUT 


483 


4 


48 




BW 


GTFRE,FREESW 


484 


4 


49 


RSTMOO 


CW 


MCOESW=l f ABSW 


485 


4 


50 




B 


RDTAP 


486 


4 


51 




MCW 


INAREA+79,INPUT+80 


487 


4 


52 




CHAIN 


5 


488 








MCW 




489 








MCW 




490 








MCW 




491 








MCW 




492 








MCW 




493 


4 


53 


PROFIX 


MCW 


INPUT+80»FRE£+8Q 


494 


4 


54 




MCW 


BLANK, FREE+75 


495 


4 


55 




MCW 


FREE+75 


496 


4 


56 




MCW 


FREE+75, FREE+20 


497 


4 


57 




MCW 




498 


4 


58 




MCW 




499 


4 


59 




MCW 


INPUT+82,FR£E+86 


500 


4 


60 




MCW 


INPUT+13,FR££+11 


501 


4 


61 




MCW 


INPUT+5 


502 


4 


62 




BCE 


C0MCRD,INPUT+8,* 


503 


4 


63 




BCE 


LBERR,FR£E+ll, f 


504 


4 


64 




CHAIN 


4 


505 








BCE 




506 








BCE 




507 








BCE 




508 








BCE 




509 


4 


65 




BCE 


LBERR,FREE+10,- 


510 


4 


66 




CHAIN 


4 


511 








BCE 




512 








BCE 




513 








BCE 




514 








BCE 




515 


4 


67 




BCE 


LBERR,FREE+10,= 


516 


4 


68 




CHAIN 


4 


517 








BCE 




518 








BCE 




519 








BCE 




520 








BCE 




521 


4 


69 




BCE 


LBERR,FREE+10,+ 


522 


4 


70 




CHAIN 


4 


523 








BCE 




524 








BCE 




525 








BCE 




526 








BCE 





SFX CT LOCN INSTRUCTION TYPE CARD 



FIX FORM 



-VERSION 3 



0626 



IS 

PUT LAST RECORD 

Q. FREE OONE IN FIXED 

RESET SWITCHES 

GET A RECORD 

MOVE TO FIXED FORM 



MOVE IDENTIFICATION 
SET OPERAND PORTION 

OF -FREE- TO BLANKS 
SET BALANCE TO BLANK 



BLANK CODE POSITIONS 
MOVE LABEL AND PG/LINE 

NO TO -FREE- 
Q. COMMENTS CARD 
CHECK FOR INVALID 

CHARACTERS IN LABELS 



4 


0626 


B 


586 






67 


8 


0630 


V 


503 


H09 


1 


67 


7 


0638 


} 


+02 


A10 




67 


4 


0645 


B 


554 






67 


7 


0649 


M 


182 


412 


MACRO 


67 


1 


0656 


M 






GEN 


67 


1 


0657 


M 






GEN 


67 


1 


0658 


M 






GEN 


68 


1 


0659 


M 






GEN 


68 


1 


0660 


M 






GEN 


68 


7 


0661 


M 


412 


180 




68 


7 


0668 


M 


A54 


175 




68 


4 


0675 


M 


175 






68 


7 


0679 


M 


175 


120 




68 


1 


0686 


M 








69 


1 


0687 


M 








69 


7 


0688 


M 


414 


186 




69 


7 


0695 


M 


345 


111 




69 


4 


0702 


M 


337 






69 


8 


0706 


B 


Y71 


340 


* 


69 


8 


0714 


B 


778 


111 


t 

MACRO 


69 


1 


0722 


B 






GEN 


70 


1 


0723 


B 






GEN 


70 


1 


0724 


B 






GEN 


70 


1 


f\t"*C 


a 






/•» *- *.! 


-» f\ 


A 


\J I CJ 


a 






UCJ1 


f w 


8 


0726 


B 


778 


110 


MACRO 


70 


1 


0734 


B 






GEN 


70 


1 


0735 


B 






GEN 


70 


1 


0736 


8 






GEN 


71 


1 


0737 


B 






GEN 


71 


8 


0738 


B 


778 


110 


MACRO 


71 


1 


0746 


B 






GEN 


71 


1 


0747 


B 






GEN 


71 


1 


0748 


B 






GEN 


71 


1 


0749 


B 






GEN 


71 


8 


0750 


B 


778 


110 


+ 

MACRO 


72 


1 


0758 


B 






GEN 


72 


1 


0759 


3 






GEN 


72 


1 


0760 


B 






GEN 


72 


1 


0761 


B 






GEN 


72 



1401 AUTOCOCER-PASS 3 PROCESS FIX FORM 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


527 


4 


71 




BCE 


LBERR,FREE+10,* 


528 


4 


72 




CHAIN 


4 


529 








BCE 




530 








BCE 




531 








BCE 




532 








BCE 




533 


4 


73 




B 


BCK1 


534 


4 


74 


LBERR 


CS 


332 


535 


4 


75 




CS 




536 


4 


76 




MCW 


•ILLEGAL LABEL - 


537 


4 


77 




MCS 


ALTRN0»236 


538 


4 


78 




w 




539 


4 


79 


BCK1 


c 


INPUT+15,BLNK2 


540 


4 


80 




BE 


ABSFIX 


541 


4 


81 




MCW 


BLNK2,SAVCP 


542 


4 


82 




MCW 


INPUT+16 


543 


4 


83 




MCW 


INPUT+16, FREE+18 


544 


4 


84 


TLUFIX 


S 


XL3 + 1 


545 


4 


85 




s 




546 


4 


86 




s 




547 


4 


87 




B 


TLUOP 


548 


4 


88 




BW 


FIXINS, EQVACD 


549 


4 


89 




BCE 


FOUND, EQVADC, 


550 


4 


90 


• 






551 


4 


91 


♦ PROCESS INSTRUCTION 


552 


4 


92 


* 






553 


4 


93 


FIXINS 


BCE 


LKNOP, INPUT+17, 


554 


4 


94 




BCE 


FIXALF, INPUT+17,* 


555 


4 


95 




B 


SCAN 


556 


4 


96 


CK8 


BCE 


CKMOD, INPUT+28, 


557 


4 


97 




A 


+1,XL2 


558 


4 


98 




MCW 


5 , * ,FREE+2i+X2 


559 


4 


99 




A 


+1,XL2 


560 


5 


00 




MCW 


»011»,XL1 


561 


5 


01 




BCE 


FIXALF, INPUT+28,* 


562 


5 


02 




8 


SCAN 


563 


5 


03 


CKOP 


C 


INPUT+16, *B • 


564 


5 


04 




BE 


MAKBCE 


565 


5 


05 




C 


INPUT+16,* B* 


566 


5 


06 




BE 


MOVMOD 


567 


5 


07 




B 


LKNOP 


568 


5 


08 


CKMOD 


C 


INPUT+16, «B • 


569 


5 


09 




BE 


ALTROP 


570 


5 


10 




C 


INPUT+16,* B* 


571 


5 


11 




BE 


ALTROP 


572 


5 


12 


LKNOP 


C 


INPUT+16, *NCP« 


573 


5 


13 




BE 


CKNOP 


574 


5 


14 




BW 


PICKUP, ABSW 


575 


5 


15 




BCE 


PICKUP, INPUT+39, 


576 


5 


16 


I SHOD 


BCE 


MOVMOD, FREE+15, 



SFX CT 



NUMBER*, 231 



I. ACTUAL OP CODE 
PRESENT IN FIXED FORM 



MOVE MNEMONIC TO FREE 
RESET INDEX LOCATIONS 
TO ZERO 

LOOKUP MNEMONIC 
Q. INSTRUCTION 
Q. CONTROL OP 



Q. A OPERAND 

Q. ALPHA LITERAL 

SCAN A OPERAND 

Q. B OPERAND 

MOVE COMMA TO FREE 



Q. ALPHA LITERAL 

SCAN B OPERAND 

Q. BRANCH INSTRUCTION 

Q. ACTUAL BRANCH INST 



Q. BRANCH INSTRUCTION 

Q. ACTUAL BRANCH INST 

Q, NOP INSTRUCTION 

Q. ACTUAL OP CODE 

Q. D CHARACTER 

Q. ILLEGAL OP 



T 


LOCN 


U 


ISTRUCTION 


TYPE < 


CARD 


8 


0762 


B 


778 


110 * 


MACRO 


72 


1 


0770 


B 






GEN 


72 


1 


0771 


B 






GEN 


73 


1 


0772 


B 






GEN 


73 


1 


0773 


B 






GEN 


73 


4 


0774 


B 


798 






73 


4 


0778 


/ 


332 






73 


1 


0782 


/ 








73 


7 


0783 


M 


+ 33 


231 




73 


7 


0790 


Z 


184 


236 




74 


1 


0797 


2 








74 


7 


0798 


C 


347 


A55 




74 


5 


0805 


B 


S70 


S 




74 


7 


0810 


M 


A55 


R88 




74 


4 


0817 


M 


348 






74 


7 


0821 


M 


348 


118 




74 


4 


0828 


S 


100 






75 


1 


0832 


S 








75 


1 


0833 


s 








75 


4 


0834 


B 


M65 






75 


8 


0838 


V 


854 


A69 1 




75 


8 


0846 


B 


T40 


A69 




75 



8 


0854 


B 


974 


349 


75 


8 


0862 


B 


/84 


349 • 


76 


4 


0870 


B 


Z09 




76 


8 


0874 


8 


950 


360 


76 


7 


0882 


A 


R44 


094 


76 




naan 

UOO 7 




aT( A 
-r j-t 


1 VI 


1 w 


7 


0896 


A 


R44 


094 


77 


7 


0903 


M 


+ 37 


089 


77 


8 


0910 


B 


/84 


360 • 


77 


4 


0918 


B 


Z09 




77 


7 


0922 


C 


348 


+ 40 


77 


5 


0929 


8 


+40 


S 


77 


7 


0934 


C 


348 


+43 


78 


5 


0941 


B 


+ 18 


S 


78 


4 


0946 


B 


974 




78 


7 


0950 


C 


348 


+40 


78 


5 


0957 


B 


*51 


S 


78 


7 


0962 


C 


348 


+43 


78 


5 


0969 


B 


*51 


S 


79 


7 


0974 


C 


348 


+46 


79 


5 


0981 


B 


/46 


S 


79 


8 


0986 


V 


♦ 29 


A10 1 


79 


8 


0994 


B 


*29 


371 


79 


8 


1002 


B 


*18 


115 


80 













1401 AUTOCODER-PASS 3 PROCESS 


FIX FORM -VERSION 3 




3735L 








PAGE 


13 


SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


SFX 


CT 


LOCN 


INSTRUCTION 


TYPE 


CARD 


577 


5 


17 




BWZ 


I0TYP»FREE+15,2 


Q. I/O INSTRUCTION 


8 


1010 


V 


/54 


115 2 




80 


578 


5 


18 


MOVMGD 


MCW 


INPUT+39,FREE+23+X2 


MOVE D CHARACTER TO 


7 


1018 


M 


371 


1K3 




80 


579 


5 


19 




MCW 


•.« 


FREE AREA 


4 


1025 


M 


+34 






80 


580 


5 


20 


PICKUP 


MCW 


INPUT+55,FREE*72 


PICKUP COMMENTS 


7 


1029 


M 


387 


172 




80 


581 


5 


21 




B 


ENDFIX 




4 


1036 


B 


626 






80 


582 


5 


22 


MAKBCE 


MCW 


f BCE»,FREE+18 


MOVE -BCE- MNEMONIC 


7 


1040 


M 


+49 


118 




81 


583 


5 


23 




B 


ISMOD 


TO OPERATION FIELD 


4 


1047 


B 


♦02 






81 


584 


5 


24 


ALTROP 


BCE 


PICKUP, INPUT+39, 


Q. D CHARACTER, I.E., 


8 


1051 


B 


+29 


371 




81 


585 


5 


25 




MCW 


•BIN»,FREE+18 


UNCONDITIONAL BRANCH 


7 


1059 


M 


+ 52 


118 




81 


586 


5 


26 




MCW 


• + BNFREE + IS 


SET FIVE CHAR BRANCH 


7 


1066 


M 


+ 55 


115 




81 


587 


5 


27 




S 


XL1 + 1 




4 


1073 


S 


090 






81 


588 


5 


28 




MCW 


BLNK2,FREE+20 




7 


1077 


M 


A55 


120 




82 


589 


5 


29 


TLU8IN 


C 


8INTBL+X1, INPUT+39 


SEARCH 5-CHARACTER 


7 


1084 


C 


H/4 


371 




82 


590 


5 


30 




BE 


BINFND 


BRANCH TABLE FOR 


5 


1091 


B 


/15 


S 




82 


591 


5 


31 




BCE 


M0VMQD,8INTBL+5+Xl, 


APPROPRIATE UNIQUE 


8 


1096 


B 


*18 


H/9 




82 


592 


5 


32 




A 


+5,XL1 


MNEMONIC. IF NOT 


7 


1104 


A 


+56 


089 




82 


593 


5 


33 




B 


TLUBIN 


PRESENT LEAVE 


4 


1111 


B 


*84 






82 


594 


5 


34 


BINFND 


MCW 


BINTBL-1+X1,FREE+19 


MNEMONIC -BIN- 


7 


1115 


M 


H/3 


119 




83 


595 


5 


35 




MCW 






1 


1122 


M 








83 


596 


5 


36 




C 


FREE+lSi'BSS 1 


Q. BRANCH SENSE SWITCH 


7 


1123 


C 


118 


+ 59 




83 


597 


5 


37 




BE 


MQVMOD 




5 


1130 


B 


+ 18 


S 




83 


598 


5 


38 




MCW 


INPUT+39, FREE+14 


PICKUP D CHARACTER 


7 


1135 


M 


371 


114 




83 


599 


5 


39 




B 


PICKUP 




4 


1142 


B 


+ 29 






83 


600 


5 


40 


CKNOP 


BCE 


PICKUP, INPUT+39, 




8 


1146 


B 


+29 


371 




83 


601 


5 


41 


IOTYP 


MCW 


INPUT+39, FREE+14 


CODE I/O INSTRUCTIONS 


7 


1154 


M 


371 


114 




84 


602 


5 


42 




MCW 


* + • 


IN ACTUAL IN 


4 


1161 


M 


+60 






84 


603 


5 


43 




MCW 


INPUT+39, FREE+20 


OPERATION FIELD 


7 


1165 


M 


371 


120 




84 


604 


5 


44 




MCW 


FREE+15 




4 


1172 


M 


115 






84 


605 


5 


45 




MCW 


8LANK3 




4 


1176 


M 


A56 






84 


606 


5 


46 




B 


PICKUP 




4 


1180 


B 


#29 






84 


607 


5 


47 


FIXALF 


BCE 


ENDALF,INPUT+27+Xl,« 


SCAN FOR ENDING « SIGN 


8 


1184 


B 


S18 


3V9 » 




84 


QUO 


IT 

3 


48 




f i 1 A T HI 


O 


















609 








BCE 






I 


1192 


B 






GEN 


85 


610 








BCE 






1 


1193 


8 






GEN 


85 


611 








BCE 






1 


1194 


8 






GEN 


85 


612 








BCE 






1 


1195 


B 






GEN 


85 


613 








BCE 






1 


1196 


B 






GEN 


85 


614 








BCE 






1 


1197 


B 






GEN 


85 


615 








BCE 






1 


1198 


B 






GEN 


85 


616 








BCE 






1 


1199 


B 






GEN 


86 


617 


5 


49 


VALUE 


A 


+1,XL2 


PROCESS STATEMENT AS 


7 


1200 


A 


R44 


094 




86 


618 


5 


50 




MCW 


«$$«,FR££+21+X2 


UNPROCESSABLE ALPHA 


7 


1207 


M 


+62 


1K1 




86 


619 


5 


51 




B 


WHCHOP 


LITERAL ILLEGAL OPND 


4 


1214 


B 


S54 






86 


620 


5 


52 


ENDALF 


SBR 


WAREA3 


PICKUP LITERAL AND 


4 


1218 


H 


A15 






86 


621 


5 


53 




S 


+VALUE+2,WAREA3 


MOVE TO FREE FORM 


7 


1222 


S 


+ 65 


A15 




86 


622 


5 


54 




zs 


WAREA3 


AREA 


4 


1229 


- 


A15 






86 


623 


5 


55 




A 


WAREA3,XL1 




7 


1233 


A 


A15 


089 




87 


624 


5 


56 




A 


WAREA3,XL2 




7 


1240 


A 


A15 


094 




87 


625 


5 


57 




MCW 


INPUT+17+X1.FREE+21+X2 




7 


1247 


M 


3U9 


1K1 




87 


626 


5 


58 


WHCHOP 


c 


XLlt 'Oil* 


EXIT ON BASIS OF WHICH 


7 


1254 


C 


089 


♦ 37 




87 
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-VERSION 3 
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PAGE 



14 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


627 


5 


59 




8H 


CK8 


628 


5 


60 




8 


CKOP 


629 


5 


61 


ABSFIX 


BCE 


SAMFIX, INPUT+16, 


630 


5 


62 




MCW 


INPUr+16,FRE£+19 


631 


5 


63 




MCW 


INPUT+39,FREE+20 


632 


5 


64 


SW1 


NOP 


SETABS 


633 


5 


65 




cs 


332 


634 


5 


66 




CS 




635 


5 


67 




MCW 


•ACTUAL OP CODES 


636 


5 


68 




cc 


1 


637 


5 


69 




w 




638 


5 


70 




cc 


1 


639 


5 


71 




MCW 


•BSSW1 


640 


5 


72 


SETABS 


SW 


ABSW=1 


641 


5 


73 




B 


TLUFIX 


642 


5 


74 


SAMFIX 


MCW 


SAV0P,FREE+20 


643 


5 


75 




MCW 




644 


5 


76 




B 


TLUFIX 


645 


5 


77 


* 






646 


5 


78 


« BEGINNING 


OF PROCESS CCNTRO 


647 


5 


79 


* 






648 


5 


80 


FOUND 


BW 


FIXINS,EQVACD 


649 


5 


81 




S 


XL3 + 1 


650 


5 


82 




MN 


EQVADD-1*XL3 


651 


5 


83 




A 


XL3 


652 


5 


84 




A 


XL3 


653 


5 


85 




8 


*+l+X3 


654 


5 


86 




B 


BADCP 


655 


5 


87 




8 


DCWSTM 


656 


5 


88 




B 


ERHLT 


657 


5 


89 




B 


ONEOP 


At;a 


c 


on 




Q 


ONEGP 


\J ^ w 


-* 


J V 




w 


659 


5 


91 




B 


ERHLT 


660 


5 


92 




B 


CKLOR 


661 


5 


93 




B 


DSTYP 


662 


5 


94 




B 


INSPC 


663 


5 


95 




MCW 


INPUT+55,FREE*59 


664 


5 


96 




MCW 




665 


5 


97 




MCW 




666 


5 


98 




MCW 




667 


5 


99 




B 


ENDFIX 


668 


6 


00 


INSPC 


BCE 


NOPND, INPUT+17, 


669 


6 


01 




MCW 


•B'.FREE+IS 


670 


6 


02 




MCW 


EQVAD0-2,EQVADD 


671 


6 


03 




LCA 


BLANK 


672 


6 


04 




MCW 


EQVADD,FREE+15 


673 


6 


05 




MCW 


• +» 


674 


6 


06 




B 


FIXINS 


675 


6 


07 


NOPND 


MCW 


INPUT+39,FREE+21 


676 


6 


08 




B 


ENDFIX 



SFX CT LOCN INSTRUCTION TYPE CARD 



OPERAND ACTING UPON 

PRINT OUT MESSAGE ONLY 
ONCE THAT ACTUAL OPS 
ARE PRESENT IN FIXED 
FORM IMAGES 
THIS ACCOUNTS FOR 
THE POSSIBILITY THAT 
PRESENT IN FIXED FORM IMAGES' ,270 
THE USER FORGOT TO 
USE AN ENTER 
AUTOCODER STATEMENT 
WHEN RETURNING TO 
FREE FORM 

PROCESS SAME OP CODE 



5 


1261 


B 


874 


U 


87 


4 


1266 


B 


922 




87 


8 


1270 


B 


T28 


348 


88 


7 


1278 


M 


348 


119 


88 


7 


1285 


M 


371 


120 


88 


4 


1292 


N 


T20 




88 


4 


1296 


/ 


332 




88 


1 


1300 


/ 






88 


7 


1301 


M 


A09 


270 


88 


2 


1308 


F 


1 




89 


1 


1310 


2 






89 


2 


1311 


F 


1 




89 


7 


1313 


M 


R76 


S92 


89 


4 


1320 


t 


A10 




89 


4 


1324 


B 


828 




89 


7 


1328 


M 


R88 


120 


89 


1 


1335 


M 






90 


4 


1336 


& 


828 




90 



DETERMINE TYPE OF 


8 


1340 


V 


854 


A69 1 


90 


CONTROL OP AND GO TO 


4 


1348 


S 


100 




90 


APPROPRIATE ROUTINE 


7 


1352 


D 


A68 


099 


90 




4 


1359 


A 


099 




90 




4 


1363 


A 


099 




90 




4 


1367 


B 


TGI 




91 


DA ILLEGAL IN FIXED FM 


4 


1371 


B 


P28 




91 


GO TO CONSTANT RTN 


4 


1375 


B 


U84 




91 


SHOULD NEVER OCCUR 


4 


1379 


B 


U73 




91 


END, EX, XFR 


4 


1383 


8 


X60 




91 


rn m cnccrv dtm 

V?W * KJ JUI I J #\ FN 1 IN 


/. 


1107 


a 


V £. /S 




r% t 


T 


J. JO I 


O 


AUU 




"f A 


SHOULD NEVER OCCUR 


4 


1391 


B 


U73 




91 


GO TO ORIGIN RTN 


4 


1395 


B 


Y89 




92 


GO TO DS, EQU RTN 


4 


1399 


B 


X88 




92 


GO TO SPECIAL ROUTINE 


4 


1403 


B 


U21 




92 




7 


1407 


M 


387 


159 


92 


TO FREE FORM AREA 


1 


1414 


M 






92 




1 


1415 


M 






92 




1 


1416 


M 






92 




4 


1417 


B 


626 




93 


PROCESS 


8 


1421 


B 


U62 


349 


93 


CC AND CCB AND SS 


7 


1429 


M 


R76 


118 


93 


AND SS8 


7 


1436 


M 


A67 


A69 


93 




4 


1443 


L 


A54 




93 




7 


1447 


M 


A69 


115 


93 




4 


1454 


M 


A12 




94 




4 


1458 


B 


854 




94 


PROCESS TWO CHARACTER 


7 


1462 


M 


371 


121 


94 


INSTRUCTIONS 


4 


1469 


B 


626 




94 



1401 AUTOCGCER-PASS 3 PROCESS FIX FORM 



-VERSION 3 



3735L 



PAGE 



15 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


677 


6 


09 


ERHLT 


H 


0,301 


678 


6 


10 




8 


ERHLT 


679 


6 


11 


* 






680 


6 


12 


•PROCESS DCW 


, DC STATEMENTS 


681 


6 


13 


« 






682 


6 


14 


DCWSTM 


BCE 


DCWTYP, INPUT+17,* 


683 


6 


15 




A 


BLANK, INPUT+17 


684 


6 


16 




MCW 


FREE+18,WAREA6=6 


685 


6 


17 




MCW 




686 


6 


18 




MCW 


*EQU«,FREE+18 


687 


6 


19 




MCW 


i+p • 


638 


6 


20 




MCW 


INPUT+21,FREE+25 


689 


6 


21 




& 


PUT 


690 


6 


22 




MCW 


FRE£+74»FREE+73 


691 


6 


23 




MCW 


INPUT+22,FREE+11 


692 


6 


24 




MCW 


WAREA6,FREE+18 


693 


6 


25 




MCW 




694 


6 


26 


DCWTYP 


CW 


INPUT+40,INPUT+39 


695 


6 


27 




cw 


INPUT+23 


696 


6 


28 




BCE 


DSARTN,FREE+14,J 


697 


6 


29 




BCE 


KNOWN, INPUT+23, + 


698 


6 


30 




BCE 


KNOWN, INPUT+23, - 


699 


6 


31 




BCE 


KNOWN, INPUT+23, • 


700 


6 


32 




MN 


INPUT+7,XL1 


701 


6 


33 




MN 




702 


6 


34 




A 


BLANK, XL1 


703 


6 


35 




C 


XL1,»032» 


704 


6 


36 




BL 


CORERR 


705 


6 


37 




C 


XLl^OOG' 


706 


6 


38 




BE 


CORERR 


707 


6 


39 


RTNOCW 


MCW 


INPUT+23+Xl,FREE+21+Xl 


708 


6 


4Q 




MCW 


III. COCCa*3 1 


709 


6 


41 




MCW 


«»»,FREE+22+Xl 


710 


6 


42 


RSTWM 


sw 


INPUT+40.INPUT+39 


711 


6 


43 




sw 


INPUT+28 


712 


6 


44 




B 


ENDFIX 


713 


6 


45 


KNOWN 


MCW 


INPUT+55,FREE+53 


714 


6 


46 




B 


RSTWM 


715 


6 


47 


CORERR 


S 


XL1 + 1 


716 


6 


48 


LPERR 


BCE 


RTNDCW,INPUT+24+Xl, 


717 


6 


49 




A 


+1,XL1 


718 


6 


50 




C 


XL1,«52» 


719 


6 


51 




BE 


RTNDCW 


720 


6 


52 




B 


LPERR 


721 


6 


53 


» 






722 


6 


54 


* PROCESS DSA STATEMENTS 


723 


6 


55 


* 






724 


6 


56 


DSARTN 


S 


XL2+2 


725 


6 


57 




MCW 


•011SXL1 


726 


6 


58 




B 


SCAN 



SFX CT LOCN INSTRUCTION TYPE CARD 



SYSTEM ERROR HALT 



1473 
1480 



• 000 301 
B U73 



Q. DCW* 

ASSURE NOT BLANK 
GENERATE EQUATE 
FOR DCW ACTUAL 



GENERATE FREE FORM 
DCW ACTUAL 

REMOVE WORD MARKS 

Q. DSA STATEMENT 
Q. IS THE LENGTH OF 
THE CONSTANT TO BE 
COMPUTED BY THE 
PROCESSOR 



0. COUNT GT 32 OR 
LT ZERO, IF 
ERROR ATTEMPT TO 
PROCESS RECORD ANYWAY 

CONSTANT TO FREE FORM 

ENCLOSE DCW WITHIN 

AT SIGNS 

RESET WORD MARKS 



PICKUP ENTIRE DCW AREA 



SCAN FOR FIRST BLANK 

IN ATTEMPT TO CORRECT 
Q) END OF RECORD 



8 


1484 


B 


V51 


349 * 


7 


1492 


A 


A54 


349 


7 


1499 


M 


118 


A18 


1 


1506 


M 






7 


1507 


M 


A21 


118 


4 


1514 


M 


A24 




7 


1518 


M 


353 


125 


4 


1525 


B 


586 




7 


1529 


M 


174 


173 


7 


1536 


M 


354 


111 


7 


1543 


M 


A18 


118 


1 


1550 


M 






7 


1551 


) 


372 


371 


4 


1558 


) 


360 




8 


1562 


B 


X15 


114 J 


8 


1570 


8 


W69 


355 + 


8 


1578 


B 


W69 


355 - 


8 


1586 


B 


W69 


355 « 


7 


1594 


D 


339 


089 


1 


1601 


D 






7 


1602 


A 


A54 


089 


7 


1609 


C 


089 


A27 


5 


1616 


B 


W80 


T 


7 


1621 


C 


089 


A30 


5 


1628 


B 


W80 


S 


7 


1633 


M 


3V5 


1S1 




ao4u 


ii 


mi 


121 


7 


1647 


M 


A31 


1S2 


7 


1654 


, 


372 


371 


4 


1661 


, 


360 




4 


1665 


B 


626 




7 


1669 


M 


387 


153 


4 


1676 


B 


W54 




4 


1680 


S 


090 




8 


1684 


B 


W33 


3V6 


7 


1692 


A 


R44 


089 


7 


1699 


C 


089 


A33 


5 


1706 


B 


W33 


S 


4 


1711 


B 


W84 





94 
94 



94 
95 
95 
95 
95 
95 
95 
95 
96 
96 
96 
96 
96 
96 
97 
97 
97 
97 
97 
98 
98 
98 
98 



98 

98 

99 

99 

99 

99 

99 

99 

100 

100 

100 

100 

100 

100 

100 



PICKUP FIXED FORM DSA 
AND PLACE IN FREE FOR 
FORM AREA 



4 


1715 


S 096 


101 


7 


1719 


M +37 089 


101 


4 


1726 


B Z09 


101 



1401 AUTOCOCER-PASS 3 PROCESS FIX FORM 



-VERSION 3 



3735L 



PAGE 16 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


727 


6 


59 






MCW 


FREE+72*FRE£+73 


728 


6 


60 






MCW 


« + * 


729 


6 


61 






BCE 


RSTWM,INPUT+27, 


730 


6 


62 






MCW 


INPUT+27,FREE+21 


731 


6 


63 






B 


RSTWM 


732 


6 


64 


ONEOP 


8 


*+5,INPUT+17, 


733 


6 


65 






8 


SCAN 


734 


6 


66 






C 


•3 »,EQVADD 


735 


6 


67 






BE 


PREOJ 


736 


6 


68 






B 


ENOFIX 


737 


6 


69 


* 








738 


6 


70 


« 


PROCESS DS 


, EQU STATEMENTS 


739 


6 


71 


* 








740 


6 


72 


DSTYP 


BCE 


DSACT, INPUT+17,* 


741 


6 


73 






BCE 


*+5, INPUT+17, 


742 


6 


74 






B 


* + 8 


743 


6 


75 






NOP 


BLANK, INPUT+17 


744 


6 


76 


DOECU 


MCW 


«EQU»,FREE+18 


745 


6 


77 






MCW 


, P«,FREE+14 


746 


6 


78 






B 


ONEOP 


747 


6 


79 


DSACT 


sw 


INPUT+6 


748 


6 


80 






A 


BLANK, INPUT+7 


749 


6 


81 






CW 


INPUT+6 


750 


6 


82 






C 


INPUT+7, '00* 


751 


6 


83 






BE 


DOEQU 


752 


6 


84 






MCW 


INPUT+7,FREE+22 


753 


6 


85 






B 


ENDFIX 


754 


6 


86 


* 








755 


6 


87 


♦PROCESS COMMENTS CAROS 


756 


6 


88 


• 








757 


6 


89 


CGMCRD 


MCW 


INPUT+55,FREE+53 


-* rr rx 

i 30 


o 








f 1 i ft T Hi 


i 


759 










MCW 




760 










MCW 




761 










MCW 




762 










MCW 




763 










MCW 




764 










MCW 




765 










MCW 




766 


6 


91 






B 


ENTSPS 


767 


6 


92 


« 








768 


6 


93 


« 


PROCESS ORIGIN, LTORG STATE 


769 


6 


94 


« 








770 


6 


95 


CKLCR 


BCE 


ONEOP, FREE+16,0 


771 


6 


96 






MCW 


•LTORG* ,FREE+20 


772 


6 


97 






MCW 




773 


6 


98 






B 


ONEOP 


774 


6 


99 


* 








775 


7 


00 


• * 


SCAN 


ROUTINE WHICH CONVERTS 


776 


7 


01 


* 









SFX CT LOCN INSTRUCTION TYPE CARD 



IF UNSIGNED MAKE SIGN 


7 


1730 


M 


172 


173 


101 


PLUS 


4 


1737 


M 


+60 




101 


Q. NO SIGN 


8 


1741 


B 


W54 


359 


101 


SIGN ADDRESS CONSTANT 


7 


1749 


M 


359 


121 


102 




4 


1756 


B 


W54 




102 


PROCESS THOSE 


8 


1760 


8 


X72 


349 


102 


INSTRUCTIONS 


4 


1768 


B 


Z09 




102 


THAT ONLY HAVE ONE OP 


7 


1772 


C 


+01 


A69 


102 


IF END CARD GOT TO EOJ 


5 


1779 


B 


Q67 


S 


102 




4 


1784 


B 


626 




102 



IF DS IS REALLY AN 
EQU CHANGE OP 
CODE, ASSURE 
OPERAND NOT BLANK 



PROCESS DS ACTUAL 



Q. NO COUNT 



PROCESS COMMENTS CARDS 



CHANGE MNEMONIC TO 
-LTORG- IF LITERAL 
ORG STATEMENT 



FORM RECORDS INTO FREE FORM 



8 


1788 


B 


Y33 


349 » 


103 


8 


1796 


B 


Y08 


349 


103 


4 


1804 


B 


Y15 




103 


7 


1808 


N 


A54 


349 


103 


7 


1815 


M 


A21 


118 


103 


7 


1822 


H 


A34 


114 


104 


4 


1829 


8 


X60 




104 


4 


1833 


* 


338 




104 


7 


1837 


A 


A54 


339 


104 


4 


1844 


) 


338 




104 


7 


1848 


C 


339 


A36 


104 


5 


1855 


B 


Y15 


S 


104 


7 


i860 


M 


339 


122 


105 


4 


1867 


8 


626 




105 



7 1871 


M 


387 153 


MATDD 


105 


1 1878 


M 




GEN 


105 


1 1879 


M 




GEN 


105 


1 1880 


M 




GEN 


105 


1 1881 


M 




GEN 


105 


1 1882 


M 




GEN 


106 


1 1883 


M 




GEN 


106 


1 1884 


M 




GEN 


106 


4 1885 


B 


626 




106 



8 


1889 


B X60 116 


106 


7 


1897 


M A41 120 


106 


1 


1904 


M 


106 


4 


1905 


B X60 


107 



1401 AUTOCODER-PASS 3 PROCESS FIX FORM 



-VERSION 3 



3735L 



PAGE 17 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


777 


7 


02 


SCAN 


SBR 


SCNXT+3 


778 


7 


03 




S 


XL3 + 1 


779 


7 


04 


L0GP1 


BCE 


CK1BK,INPLT+18+X1, 


780 


7 


05 


CXL1 


C 


XL3,«05 f 


781 


7 


06 




BE 


NDOPD 


782 


7 


07 




A 


+1,XL1 


783 


7 


08 




A 


+1.XL2 


784 


7 


09 




A 


+1»XL3 


785 


7 


10 




B 


L00P1 


786 


7 


11 


CK18K 


C 


XL3,«04* 


787 


7 


12 




BE 


NOOPD 


788 


7 


13 




BCE 


* + 5, INPUT+19+X1, 


789 


7 


14 




B 


CXL1 


790 


7 


15 


NOOPD 


MCW 


INPUT+17+X1,FREE+21+X2 


791 


7 


16 




C 


XL1, •Oil' 


792 


7 


17 




s 


XL1 + 2 


793 


7 


18 




BH 


*+8 


794 


7 


19 




MCW 


•011SXL1 


795 


7 


20 




BCE 


CKLIT2t INPUT+23+X1, 


796 


7 


21 




8WZ 


MKMIN*INPUT423*X1,K 


797 


7 


22 




MCW 


, +*,INPUT+23+Xl 


798 


7 


23 


RTN2 


SW 


INPUT+24+Xl,INPUT+23+Xl 


799 


7 


24 




A 


BLANK, INPLT+26+X1 


800 


7 


25 




A 


+4,XL2 


801 


7 


26 




MCW 


INPUT+26+Xl,FREE+2i+X2 


802 


7 


27 




MCW 




803 


7 


28 




CW 


INPUT+24+Xl,INPUT+23+Xl 


804 


7 


29 


NGADJ 


BCE 


FIXLIT, INPUT+17+X1,+ 


805 


7 


30 




BCE 


FIXLIT, INPUT+17+X1,- 


806 


7 


31 




BCE 


SCNXT, INPLT+27+X1, 


807 


7 


32 




A 


+3,XL2 


808 


7 


33 




MN 


INPUT+27+Xi*FREE+2i+X2 


809 


7 


34 




MCW 


•+X» 


810 


7 


35 


SCNXT 


B 


XXXX 


811 


7 


36 


MKMIN 


MCW 


•-•, INPUT+23 + X1 


812 


7 


37 




B 


RTN2 


813 


7 


38 


FIXLIT 


BCE 


NOTll,INPUT+27+Xl, 


814 


7 


39 




A 


+1,XL2 


815 


7 


40 




MN 


INPUT+27+X1.FREE+21+X2 


816 


7 


41 




B 


SCNXT 


817 


7 


42 


N0T11 


BCE 


SUBT,INPUT+26+Xl, 


818 


7 


43 




B 


SCNXT 


819 


7 


44 


SU8T 


A 


•I99SXL1 


820 


7 


45 




A 


•199', XL2 


821 


7 


46 




B 


NOT 11 


822 


7 


47 


CKLIT2 


BCE 


SCNXT, INPLT+17+X1,+ 


823 


7 


48 




BCE 


SCNXT, INPLT+17+X1,- 


824 


7 


49 




B 


NOADJ 


825 


7 


50 




DCW 





826 


7 


51 


SYSMK1 


DCW 


« i 



SFX CT LOCN INSTRUCTION TYPE CARD 





4 


1909 


H 


J20 


107 


RESET INDEX 3 


4 


1913 


S 


100 


107 


Q. BLANK CHARACTER 


8 


1917 


B 


262 3V0 


107 


Q. END OF ADDRESS 


7 


1925 


C 


099 A43 


107 




5 


1932 


B 


Z86 S 


107 


INCREASE ALL INDEX 


7 


1937 


A 


R44 089 


107 


REGISTERS 


7 


1944 


A 


R44 094 


108 




7 


1951 


A 


R44 099 


108 




4 


1958 


B 


Z17 


108 


TOLERATE ONE BLANK 


7 


1962 


C 


099 A45 


108 


IN ADDRESS 


5 


1969 


B 


Z86 S 


108 




8 


1974 


8 


Z86 3V1 


108 




4 


1982 


8 


Z25 


109 


MOVE ADDRESS PORTION 


7 


1986 


M 


3U9 1K1 


109 


TO FREE FORM AREA 


7 


1993 


C 


089 +37 


109 




4 


2000 


S 


091 


109 




5 


2004 


B 


-16 U 


109 




7 


2009 


M 


+37 089 


109 


Q. NO CHARACTER ADJ 


8 


2016 


B 


J88 3V5 


110 


ASSURE CHAR ADJ 


8 


2024 


V 


J21 3V5 K 


110 


♦ OR - 


7 


2032 


M 


+60 3V5 


110 


PROCESS CHARACTER 


7 


2039 


t 


3V6 3V5 


110 


ADJUSTMENT 


7 


2046 


A 


A54 3V8 


110 




7 


2053 


A 


A46 094 


111 




7 


2060 


M 


3V8 1K1 


ill 




1 


2067 


M 




111 




7 


2068 


) 


3V6 3V5 


111 


Q. LITERAL 


8 


2075 


B 


J32 3U9 + 


111 




8 


2083 


B 


J 32 3U9 - 


111 


Q. INDEXING 


8 


2091 


B 


J17 3V9 


112 


PROCESS INDEXING 


7 


2099 


A 


A47 094 


112 




-» 


1 1 f\ £. 


r\ 


3V9 1K1 


in 




r 


£iUO 


V 


* JU*. 




4 


2113 


M 


A 49 


112 


EXIT 


4 


2117 


B 


000 


112 


SET CHAR ADJ SIGN 


7 


2121 


M 


A50 3V5 


112 


TO HINUS 


4 


2128 


B 


-39 


113 


PROCESS REMAINDER OF 


8 


2132 


B 


J 58 3V9 


113 


FIXED FORM NUMERIC 


7 


2140 


A 


R44 094 


113 


LITERAL 


7 


2147 


D 


3V9 1K1 


113 




4 


2154 


B 


J17 


113 




8 


2158 


B 


J70 3V8 


113 




4 


2166 


B 


J17 


114 




7 


2170 


A 


A53 089 


114 




7 


2177 


A 


A53 094 


114 




4 


2184 


B 


J58 


114 


Q. LITERAL 


8 


2188 


B 


J17 3U9 + 


114 




8 


2196 


B 


J17 3U9 - 


114 




4 


2204 


B 


-75 


115 




1 


2208 






115 


SYSTEM GROUP MARK 


1 


2209 






115 



1401 AUTOCODER-PASS 3 PROCESS FIX FORM 



-VERSION 3 



3735L 



PAGE 



18 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


827 


7 52 




XFR 





828 


7 53 


RTEND 


EQU 


* 



SFX CT LOCN INSTRUCTION TYPE CARD 

B 000 116 

2209 



1401 AUTOCODER-PASS 3 RIGHT MAIN LINE 



-VERSION 3 



37331- 



PAGE 



19 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


829 


7 


54 




JOB 


1401 AUTOCODER-PASS 


830 


7 


55 


» 






831 


7 


56 


♦TABLE 


LOOKUP OF MNEMONIC OP CODE 


832 


7 


57 


* 






833 


7 


58 




ORG 


BEGIN 


834 


7 


59 


TLUGP 


S8R 


TLUXT+3 


835 


7 


60 




C 


FREE+18,BLANK3=3 


836 


7 


61 




BE 


ABSCOD 


837 


7 


62 




MLC 


FREE+18»XL2 


838 


7 


63 




A 


FREE+18,XL2-1 


839 


7 


64 




A 


FREE+18»XL2~2 


840 


7 


65 




A 


FREE+16,XL2 


841 


7 


66 


SU81 


S 


+55G0,XL2+1 


842 


7 


67 




BWZ 


SUBi,XL2+l,B 


843 


7 


68 




MLCWA 


0PND-549+X2»EQVA0C=9 


844 


7 


69 




SAR 


GETQP+3 


845 


7 


70 




S 


XL2+2 


846 


7 


71 


GETOP 


MLCWA 


XXXX,EQVACD 


847 


7 


72 




SAR 


GET0P+3 


848 


7 


73 




BCE 


8AD0P,EQVADC,» 


849 


7 


74 




C 


EQVADD,FREE+18 


850 


7 


75 




BU 


GETOP 


851 


7 


76 




LCA 


EQVADD-3,EQVACD 


852 


7 


77 




C 


•N »,EQVACD 


853 


7 


78 




BE 


ENTER 


854 


7 


79 




C 


£QVADO,»B • 


855 


7 


80 




BE 


SPECIN 


856 


7 


81 




C 


EQVADD,«2 • 


857 


7 


82 




BE 


SPECIN 


858 


7 


83 


SAVCOD 


MCW 


EQVADD,FREE+15 


859 


7 


84 




S8R 


XL3 


36G 


-» 
i 










861 


7 


86 




BE 


*+8 


862 


7 


87 




MCW 


«+«,0G0+X3 


863 


7 


88 


TLUXT 


B 


XXXX 


864 


7 


89 


ENTER 


C 


FREE+23,»SPS» 


865 


7 


90 




BE 


GTFIX 


866 


7 


91 




C 


INPUT+20,*ALTQ» 


867 


7 


92 




BE 


GTFRE 


868 


7 


93 




BW 


PSTNU,MODESW 


869 


7 


94 




B 


RSTMOD 


870 


7 


95 


SPECIN 


BWZ 


MLCTYP, EQVACD-l.B 


871 


7 


96 




LCA 


EQVADD-2,EQVACD 


872 


7 


97 


CKEL 


BCE 


SAVCOD, FREE+19, 


873 


7 


98 




MCW 


•LSEQVACC 


874 


7 


99 




B 


SAVCOD 


875 


8 


00 


MLCTYP 


LCA 


•M'jEQVADC 


876 


8 


01 




B 


CKEL 


877 


8 


02 


* 






878 


8 


03 


* PROCESS ILLEGAL OPERATION COCE 



SFX CT LOCN INSTRUCTION TYPE CARD 



MAIN LINE 



-VERSION 3 









2465 








4 


2465 


H 


046 




119 


Q« ACTUAL 


7 


2469 


C 


118 


A56 


119 


OP CODE 


5 


2476 


B 


P55 


S 


119 




7 


2481 


M 


118 


094 


119 




7 


2488 


A 


118 


093 


119 




7 


2495 


A 


118 


092 


119 


TABLE LOOKUP 


7 


2502 


A 


116 


094 


120 


USES ADDRESS 


7 


2509 


S 


A60 


095 


120 


CONVERSION TECHNIQUE 


8 


2516 


V 


N09 


095 B 


120 




7 


2524 


L 


BN9 


A69 


120 




4 


2531 


Q 


N42 




120 




4 


2535 


S 


096 




120 


SEARCH TABLE FOR 


7 


2539 


L 


000 


A69 


121 


MNEMONIC 


4 


2546 


Q 


N42 




121 


Q. OP NOT IN TABLE 


8 


2550 


B 


P28 


A69 » 


121 


Q. OP CODE FOUND 


7 


2558 


C 


A69 


118 


121 




5 


2565 


8 


N39 


/ 


121 


SHIFT TABLE FUNCTION 


7 


2570 


L 


A66 


A69 


121 


Q. ENTER CARD 


7 


2577 


C 


A71 


A69 


122 




5 


2584 


B 


047 


S 


122 


Q.MLC, MLCWA TYPE 


7 


2589 


C 


A69 


A73 


122 




5 


2596 


B 


083 


S 


122 


Q* RAMAC INSTN 


7 


2601 


C 


A69 


A75 


122 




5 


2608 


B 


083 


S 


122 


PLACE TABLE FUNCTION 


7 


2613 


M 


A69 


115 


123 


ON RECORD PRECEDED BY 


4 


2620 


H 


099 




123 


* m iir tr*r>M 
A rtuo at *>« 




"» Z. *» /. 

tott 


r 


f\nc\ 


A TO 

« 1 O 


1 o-a 




5 


2631 


B 


043 


s 


123 




7 


2636 


M 


+60 


0+0 


123 


EXIT 


4 


2643 


B 


000 




123 


DETERMINE TYPE OF 


7 


2647 


C 


123 


A81 


124 


ENTER CARD AND 


5 


2654 


B 


464 


S 


124 


GO TO APPROPRIATE 


7 


2659 


C 


352 


A85 


124 


ROUTINE 


5 


2666 


B 


503 


S 


124 




8 


2671 


V 


630 


+02 1 


124 




4 


2679 


B 


638 




124 


Q. MLC TYPE 


8 


2683 


V 


P17 


A68 B 


125 




7 


2691 


L 


A67 


A69 


125 


Q. SHOULD OP BE -L- 


8 


2698 


B 


013 


119 


125 


MAKE OP CODE -L- 


7 


2706 


M 


A86 


A69 


125 




4 


2713 


B 


013 




125 


MAKE OP -M- 


7 


2717 


L 


A87 


A69 


126 




4 


2724 


B 


098 




126 



1401 AUTGCOCER-PASS 3 RIGHT MAIN LINE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


879 


8 


04 


♦ 






880 


8 


05 


8AD0P 


LCA 


BLANK, EQVADC 


881 


8 


06 




BW 


SAVCOD,FREESW 


882 


8 


07 




BVi 


CKFF,MODESW 


883 


8 


08 




B 


SAVCOD 


884 


8 


09 


ABSCOD 


BCE 


SAVCOD, FREE+19, 


885 


8 


10 




LCA 


BLANK, EGVADO 


886 


8 


11 




MCW 


FR£E+19,EQVADD 


88? 


8 


12 




BCE 


SAVCOD.FREE+20, 


888 


8 


13 




CW 


EQVADD 


889 


8 


14 




SW 




890 


8 


15 




MCW 


FRE£+20,EQVADD~1 


891 


8 


16 




B 


SAVCOD 


892 


8 


17 


CKFF 


BCE 


SAVCOD, FREE+14, 


893 


8 


18 




MCW 


FREE+80,INPLT+80 


894 


8 


19 




CHAIN 


9 


895 








MCW 




896 








MCW 




897 








MCW 




898 








MCW 




899 








MCW 




900 








MCW 




901 








MCW 




902 








MCW 




903 








MCW 




904 


8 


20 




cs 


332 


905 


8 


21 




cs 




906 


8 


22 




MCW 


FREE+80.PRINT+80 


907 


8 


23 




CHAIN 


4 


908 








MCW 




909 








MCW 




910 








MCW 




911 








MCW 




912 


8 


24 




MCW 


•PROCESSING AS FIXED FORM 


913 


8 


25 




W 




914 


8 


26 




SW 


FREESW 


915 


8 


21 




BCV 


RESTR 


916 


8 


28 




B 


GTFIX 


917 


8 


29 


RESTR 


CCB 


GTFIX, 1 


918 


8 


30 


* 






919 


8 


31 


» END 


OF JOB 


PROCEDURE 


920 


8 


32 


« 






921 


8 


33 


PRECJ 


RTW 


SYSTAP,0VL2 


922 


8 


34 


ECJ 


B 


PUT 


923 


8 


35 




WTM 


OUTAPE 


924 


8 


36 




MESSG 


'PASS 3 COMPLETED*, 60, K,l 


925 




01 




CC 


K 


926 




02 




CS 


332 


927 




03 




CS 




928 




04 




MCW 


•PASS 3 COMPLETED', 60+200 



IN LINE -VERSION 3 




3733L 








PAGE 


20 


SFX 


CT 


LOCN 


INSTRUCTION 


TYPE 


CARD 


MAKE OP BLANK 


7 


2728 


L 


A54 


A69 




126 


Q« IN FREE FORM MODE 


8 


2735 


V 


013 


H09 1 




126 


Q. IN FREE FORM MODE 


8 


2743 


V 


Q01 


+02 1 




126 




4 


2751 


B 


013 






126 




8 


2755 


B 


013 


119 




127 


PROCESS ACTUAL OP 


7 


2763 


L 


A54 


A69 




127 


CODES 


7 


2770 


M 


119 


A69 




127 




8 


2777 


B 


013 


120 




127 




4 


2785 


) 


A69 






127 




1 


2789 


, 








127 




7 


2790 


M 


120 


A68 




128 




4 


2797 


B 


013 






128 


IF RECORD APPEARS TO B 


8 


2801 


B 


013 


114 




128 


BE FIXED FORM RECORD 


7 


2809 


M 


180 


412 


MACRO 


128 




1 


2816 


M 






GEN 


128 




1 


2817 


M 






GEN 


128 




1 


2818 


M 






GEN 


128 




1 


2819 


M 






GEN 


129 




1 


2820 


M 






GEN 


129 




1 


2821 


M 






GEN 


129 




1 


2822 


M 






GEN 


129 




1 


2823 


M 






GEN 


129 




1 


2824 


M 






GEN 


129 




4 


2825 


/ 


332 






129 




1 


2829 


/ 








130 




7 


2830 


M 


180 


280 


MACRO 


130 




1 


2837 


M 






GEN 


130 




1 


2838 


M 






GEN 


130 




L 




u 






new 


ion 




1 


2840 


M 






GEN 


130 


RD',332 


7 


2841 


M 


B18 


332 




130 




1 


2848 


2 








131 




4 


2849 


t 


H09 






131 




5 


2853 


B 


Q62 


t 




131 




4 


2858 


B 


464 






131 




5 


2862 


F 


464 


1 




131 



SKIP PAST OVERLAY 
PUT END CARD 
WRITE TAPE MARK 



8 


2867 


L 


tUl 


626 


R 


131 


4 


2875 


B 


586 






131 


5 


2879 


U 


tU4 


M 


MACRO 


132 


2 


2884 


F 


K 




GEN 


132 


4 


2886 


/ 


332 




GEN 


132 


1 


2890 


/ 






GEN 


132 


7 


2891 


M 


B34 


260 


GEN 


132 













1401 AUTOCODER-PASS 


3 RIGHT 


HAIN LINE -VERSION 


3 


3733L 








PAGE 


21 


SEQ 


PQ 


LIN 


LA8EL 


OP 


OPERANDS 










SFX CT 


LOCN 


INSTRUCTION 


TYPE 


CARD 


929 




05 




W 












1 


2898 


2 






GEN 


132 


930 




06 




cc 


1 










2 


2899 


F 


1 




GEN 


132 


931 


8 


37 




cw 


SYSMK1 








CLEAR GROUP MK fc/ WM 


4 


2901 


) 


K09 






133 


932 


8 


38 




CW 


GMK1,GMK2 










7 


2905 


) 


189 


187 




133 


933 


8 


39 




RTW 


SYSTAP,0VL2 










8 


2912 


L 


(Ui 


626 R 




133 


934 


8 


40 




RTW 


SYSTAP,085 








READ IN PASS 4 


8 


2920 


L 


(Ul 


085 R 




133 


935 


8 


41 




NOP 













4 


2928 


N 


000 






133 


936 


8 


42 




8ER 


TPERR 










5 


2932 


8 


K10 


L 




133 


937 


8 


43 




B 


PASS82 








GO TO NEXT PASS 


4 


2937 


8 


200 






134 


938 


8 


44 




LTORG 


* 














2941 












352 




OCW 


+INAREA+12 










3 


2943 


115 




ADCON 


134 












+ 1 










1 


2944 








LIT 


134 












•CHA' 










3 


2947 








LIT 


134 












«S f 










1 


2948 








LIT 


134 












«z* 










1 


2949 








LIT 


134 












+00 










2 


2951 








LIT 


134 






406 


HLDCO 




=01 

»c« 

•+1 • 










1 
1 
1 
3 


2952 
2953 
2954 
2957 








AREA 
LIT 
LIT 
LIT 


135 
135 
135 
135 






428 






•EQU • 










5 


2962 








LIT 


135 






430 






•$HIVAL +P • 










10 


2972 








LIT 


135 






432 






+NUREC 










3 


2975 


626 




ADCON 


135 












•B» 










1 


2976 








LIT 


136 












t i 










3 


2979 








LIT 


136 






445 


SAVCP 




=09 










9 


2988 








AREA 


136 






447 






•$HIVAL' 










6 


2994 








LIT 


136 






450 






13 t 










5 
2 


2999 
3001 








LIT 
LIT 


136 
136 






484 


MOCESW 




=01 










1 


3002 








AREA 


136 






536 






'ILLEGAL LAEEL - 


SEQUENCE 


NUMBER' 


31 


3033 








LIT 


137 












« 










1 










1 T T 


1 :»T 












* " 










JL 








fa. A • 


* -» » 












•Oil* 










3 


3037 








LIT 


137 












i B • 










3 


3040 








LIT 


137 












1 B' 










3 


3043 








LIT 


138 












•NOP 1 










3 


3046 








LIT 


138 












*BCE« 










3 


3049 








LIT 


138 












•BIN 1 










3 


3052 








LIT 


138 












»+ 8* 










3 


3055 








LIT 


138 












+ 5 










1 


3056 








LIT 


138 












»BSS« 










3 


3059 








LIT 


138 












« + » 










1 


3060 








LIT 


139 












■ $$» 










2 


3062 








LIT 


139 






621 






+VALUE+2 










3 


3065 


S02 




ADCON 


139 






635 






•ACTUAL OP COOES 


PRESENT 


IN 


FIXED FORM IMAGES' 


44 


3109 








L IT 


141 






640 


ABSfo 




=01 
• ♦• 










1 
2 


3110 
3112 








AREA 
LIT 


141 
141 






684 


WAREA6 




=06 
•EQU' 
*+p • 










6 
3 
3 


3118 
3121 
3124 








AREA 
LIT 

LIT 


141 
141 
142 



1401 AUTOCQCER-PASS 3 RIGHT MAIN LINE 



-VERSION 3 



3733L 



PAGE 22 



SEQ PG LIN 


LABEL OP 


OPERANDS 

•032» 

•000« 
tit 

•52« 
i pt 

»00» 


771 




•LTORG' 

•05* 

*04» 

+4 

+3 

«+X« 
t«- 1 

•I99« 


835 


8LANK3 


=03 

+5500 


843 


EQVADD 


=09 
•N • 
•8 * 
•2 • 


860 




+FREE+11 
•SPS 1 
•AUTO 1 
•L» 

t m « 


912 
928 




•PROCESSING AS FIXED FORM RECORD' 
•PASS 3 CCMPLETED* 



SFX CT LOCN INSTRUCTION TYPE CARD 







912 
928 


i 
i 


•PROCESS 
•PASS 3 


939 


8 


45 


« 




940 


8 


46 


•TABLE OF MNEMONIC OP 


941 


8 


47 


# 




942 


8 


48 


ORG 3253 


943 


8 


49 


DCW ' 


■ 5 S 


944 


8 


50 


DCW 


=4 


945 


8 


51 


DCW 


= 2 


946 


8 


52 


DCW « 


•NNOP« 


947 


8 


53 


DCW ' 


•C XFR» 


948 


8 


54 


DCW 


'0 LOR 1 


949 


8 


55 


DCW ' 


'I JOB* 


950 


8 


56 


DCW ' 


/CS • 


951 


8 


57 


DCW ' 


•0 DA • 


952 


8 


58 


DCW « 


'S2WSS 1 


953 


8 


59 


MASYM DCW « 


•=MA • 


954 


8 


60 


DCW < 


'3 END' 


955 


8 


61 


DCW ' 


•PMCM» 


956 


8 


62 


DCW 


»N ENT« 


957 


8 


63 


DCW { 


'8RMRTB' 


958 


8 


64 


DCW ' 


'ABBLC 


959 


8 


65 


DCW « 


i • 


960 


8 


66 


DCW < 


B^MBC 1 


961 


8 


67 


OCW 1 


'CD • 



3 


3127 


3 


3130 


1 


3131 


2 


3133 


1 


3134 


2 


3136 


5 


3141 


2 


3143 


2 


3145 


1 


3146 


1 


3147 


2 


3149 


1 


3150 


3 


3153 


3 


3156 


4 


3160 


9 


3169 


2 


3171 


2 


3173 


2 


3175 


3 


3178 


3 


3181 


4 


3185 


1 


3186 


1 


3187 


31 


3218 


16 


3234 





32-* j 


4 


3257 


2 


3259 


4 


3263 


5 


3268 


5 


3273 


5 


3278 


4 


3282 


5 


3287 


5 


3292 


4 


3296 


5 


3301 


4 


3305 


5 


3310 


6 


3316 


5 


3321 


1 


3322 


5 


3327 


4 


3331 



111 



3253 



LIT 


142 


LIT 


142 


LIT 


142 


LIT 


142 


LIT 


142 


LIT 


142 


LIT 


143 


LIT 


143 


LIT 


143 


LIT 


143 


LIT 


143 


LIT 


143 


LIT 


143 


LIT 


144 


AREA 


144 


LIT 


144 


AREA 


144 


LIT 


144 


LIT 


144 


LIT 


144 


ADCON 


145 


LIT 


145 


LIT 


145 


LIT 


145 


LIT 


145 


LIT 


146 


LIT 


147 



148 
148 
148 
148 
148 
148 
149 
149 
149 
149 
149 
149 
149 
150 
150 
150 
150 
150 



1401 AUTOCGCER-PASS 3 RIGHT MAIN LINE 



SEQ 


PG 


LIN LABEL OP OPERANDS 


962 


8 


68 


OCW ' 


'F3WH2 WDC 1 


963 


8 


69 


DCW 


• FCCB* 


964 


8 


70 


DCW 


'S1DUDCR* 


965 


8 


71 


DCW 


•YMLZ' 


966 


8 


72 


DCW 


•«M » 


967 


8 


73 


DCW 


'UEUSKP* 


968 


8 


74 


DCW 


•0 ORG» 


969 


8 


75 


DCW 


•HSBR* 


970 


8 


76 


DCW 1 


•K8 SS » 


971 


8 


77 


DCW 


»YM2 • 


972 


8 


78 


DCW 1 


i i 


973 


8 


79 


DCW 


■)CW « 


974 


8 


80 


DCW 


•UWLWTW 1 


975 


8 


81 


DCW 


'8 #LC» 


976 


8 


82 


DCW < 


'ZMCS* 


977 


8 


83 


DCW 


•UWMWT » 


978 


8 


84 


DCW < 


»MMCW« 


979 


8 


85 


DCW ' 


■F2WM2 WDT» 


980 


8 


86 


DCW 


'QSAR* 


981 


8 


87 


DCW 


'R6WRF' 


982 


8 


83 


DCW * 


'S1EUECR* 


983 


8 


89 


DCW ' 


'8SRF* 


984 


8 


90 


DCW < 


')2WM » 


985 


8 


91 


DCW ■ 


'1VBW • 


986 


8 


92 


DCW < 


•9B8C9» 


987 


8 


93 


DCW « 


'IR • 


988 


8 


94 


DCW < 


»URLRTW« 


989 


8 


95 


DCW ' 


•F1RHRD • 


990 


8 


96 


DCW « 


'F1RLRDW' 


991 


8 


97 


DCW « 


»MMU * 


992 


8 


98 


DCW « 


'VBWZ* 


993 


8 


99 




» aw • 


994 


9 


00 


DCW « 


•RBBPC 


995 


9 


01 


DCW ' 


'CC • 


996 


9 


02 


DCW ' 


»C4PC8» 


997 


9 


03 


DCW ' 


•DMLN* 


998 


9 


04 


DCW « 


»UMUWTM» 


999 


9 


05 


DCW ' 


'E£CE« 


1000 


9 


06 


DCW « 


»C EX • 


1001 


9 


07 


DCW ' 


• UCU • 


1002 


9 


08 


DCW ' 


'ZBBAV' 


1003 


9 


09 


DCW ' 


»5RP • 


1004 


9 


10 


DCW « 


'•H • 


1005 


9 


11 


DCW « 


•LLU • 


1006 


9 


12 


DCW ' 


•BWMWTB* 


1007 


9 


13 


DCW « 


' KSSB' 


1008 


9 


14 


DCW « 


»KB8EF« 


1009 


9 


15 


DCW « 


•PMRC 


1010 


9 


16 


DCW ' 


UBUBSP» 


1011 


9 


17 


DCW ' 


URWRT * 



VERSION 


3 


3733L 




Oi A %»f 1 


LOCN 




9 


3340 




5 


3345 




7 


3352 




4 


3356 




4 


3360 




6 


3366 




5 


3371 




4 


3375 




6 


3381 




4 


3385 




1 


3386 




4 


3390 




6 


3396 




5 


3401 




4 


3405 




6 


3411 




4 


3415 




9 


3424 




4 


3428 




5 


3433 




7 


3440 




4 


3444 




5 


3449 




5 


3454 




5 


3459 




4 


3463 




6 


3469 




7 


3476 




7 


3483 




4 


3487 




4 


3491 




t. 






5 


3500 




4 


3504 




5 


3509 




4 


3513 




6 


3519 




4 


3523 




5 


3528 




5 


3533 




5 


3538 




4 


3542 




4 


3546 




4 


3550 




6 


3556 




5 


3561 




5 


3566 




4 


3570 




6 


3576 




6 


3582 



PAGE 23 



INSTRUCTION TYPE CARD 

150 
150 
151 
151 
151 
151 
151 
151 
151 
152 
152 
152 
152 
152 
152 
152 
153 
153 
153 
153 
153 
153 
153 
154 
154 
154 
154 
154 
154 
154 
155 
155 
155 
155 
155 
155 
155 
156 
156 
156 
156 
156 
156 
156 
157 
157 
157 
157 
157 
157 



1401 AUTGCOCER-PASS 3 RIGHT MAIN LINE 
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SEQ 


PG 


LIN 


LABEL OP OPERANOS 


1012 


9 


18 


DCW ? 


•SBBE " 


1013 


9 


19 


OCW ' 


• 3WR • 


1014 


9 


20 


DCW s 


»SS ' 


1015 


9 


21 


OCW 


»BB » 


1016 


9 


11 


DCW « 


'1 DCW* 


1017 


9 


23 


DCW 


•WBBE» 


1018 


9 


24 


DCW ' 


»J DSA» 


1019 


9 


25 


DCW 


'LLCA» 


1020 


9 


26 


DCW 


•A DC * 


1021 


9 


27 


DCW ' 


'F1WLWDW* 


1022 


9 


28 


DCW ' 


>7WRP« 


1023 


9 


29 


DCW < 


' BBIN' 


1024 


9 


30 


DCW 1 


■KV8M * 


1025 


9 


31 


DCW 


» PBBPB« 


1026 


9 


32 


DCW ' 


»9SPF» 


1027 


9 


33 


DCW ' 


»M SFX« 


1028 


9 


34 


DCW « 


»4P • 


1029 


9 


35 


DCW ' 


'FORMSD ' 


1030 


9 


36 


DCW ' 


»»8BCV» 


1031 


9 


37 


DCW < 


'-2S • 


1032 


9 


38 


DCW 


•0 LTO» 


1033 


9 


39 


DCW ' 


»P EQU* 


1034 


9 


40 


DCW ' 


» BBSS' 


1035 


9 


41 


DCW « 


•F8 CC • 


1036 


9 


42 


DCW 


•AA * 


1037 


9 


43 


DCW ' 


•LBBER* 


1038 


9 


44 


DCW ' 


'/BBU • 


1039 


9 


45 


DCW ' 


»B8CE» 


1040 


9 


46 


DCW « 


•UBBH • 


1041 


9 


47 


DCW « 


•TBBL • 


1042 


9 


48 


DCW « 


'X OS » 


1043 


9 


49 


DCW ' 


'F2RM2 ROT 


1044 


9 


50 


DCW < 


, AMI«BD• 


1045 


9 


51 


DCW < 


2W » 


1046 


9 


52 


DCW « 


'F1WMWD • 


1047 


9 


53 


DCW « 


'D«N * 


1048 


9 


54 


DCW 


'C1RCB' 


1049 


9 


55 


DCW < 


6WP * 


1050 


9 


56 


DCW 1 


XM1Z« 


1051 


9 


57 


DCW 


=9 


1052 


9 


58 


DCW 


=3 


1053 


9 


59 


DCW « 


+ 2A • 


1054 


9 


60 


DCW 


= 1 


1055 


9 


61 


DCW ' 


UUURWU* 


1056 


9 


62 


DCW ' 


URURWD 1 


1057 


9 


63 


OCW ' 


R4RF » 


1058 


9 


64 


OPND DCW 


= 1 


1059 


9 


65 


* 




1060 


9 


66 


* CONSTANTS Af 


4D TABLES 


1061 


9 


67 


* 





SFX CT LOCN INSTRUCTION TYPE CARD 



157 
158 
158 
158 
158 
158 
158 
158 
159 
159 
159 
159 
159 
159 
159 
160 
160 
160 
160 
160 
160 
160 
161 
161 
161 
161 
161 
161 
161 
162 
162 

1 AO 

162 
162 
162 
162 
163 
163 
163 
163 
163 
163 
163 
164 
164 
164 
164 



5 


3587 


4 


3591 


4 


3595 


4 


3599 


5 


3604 


4 


3608 


5 


3613 


4 


3617 


5 


3622 


7 


3629 


4 


3633 


5 


3638 


5 


3643 


5 


3648 


4 


3652 


5 


3657 


4 


3661 


7 


3668 


5 


3673 


4 


3677 


5 


3682 


5 


3687 


5 


3692 


6 


3698 


4 


3702 


5 


3707 


5 


3712 


4 


3716 


5 


3721 


5 


3726 


5 


3731 


o 
7 




5 


3745 


4 


3749 


7 


3756 


4 


3760 


5 


3765 


4 


3769 


4 


3773 


9 


3782 


3 


3785 


4 


3789 


1 


3790 


6 


3796 


6 


3802 


5 


3807 


1 


3808 



1401 AUTOCOCER-PASS 3 RIGHT MAIM LINE 



-VERSION 3 
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SEQ 


PG 


LIN 


LABEL 


QP 


OPERANDS 


1062 


9 


68 


FREESW 


DC 







1C63 


9 


69 


8INTBL 


oca 


'BAV Z* 




1064 


9 


70 




DCW 


•BC9 9« 




1065 


9 


71 




DCW 


■BU /« 




1066 


9 


72 




DCW 


•BCV »• 




1067 


9 


73 




DCW 


•BE S« 




1068 


9 


74 




DCW 


•8EF K« 




1069 


9 


75 




DCW 


•BER L» 




1070 


9 


76 




DCW 


»8H U" 




1071 


9 


77 




DCW 


•BL T' 




1072 


9 


78 




DCW 


'8LC A« 




1073 


9 


79 




DCW 


•BPB P» 




1074 


9 


80 




DCW 


•BPCBR* 




1075 


9 


81 




DCW 


• BSS B • 




1076 


9 


82 




DCW 


•BSS C 1 




1077 


9 


83 




DCW 


•BSS D» 




1078 


9 


84 




DCW 


•BSS E» 




1079 


9 


85 




DCW 


•BSS F< 




1080 


9 


86 




DCW 


•BSS G» 




1081 


9 


87 


* 








1082 


9 


88 


*TAP£ 


INPUT 


AREA 




1083 


9 


89 


* 








1084 


9 


90 




DS 


3 




1085 


9 


91 


INAREA 


DA 

DCW 


1X86,G 
t i 




1086 


9 


92 


GHK1 


EQU 


* 




1087 


9 


93 


* 








1088 


9 


94 


* EQUATES 






1089 


9 


95 


« 








1090 


9 


96 


BLANK 


EQU 


BLANKS- 


2 


1091 


9 


97 


8LNK2 


EQU 


BLANKS- 


•1 








mm r t « 

cnur l A 


r- rn i 


cjh toro 




1093 


9 


99 


WAREA3 


EQU 


WAREA6- 


•3 


1094 


10 


00 


WAREA2 


ECU 


WAREA6- 


•4 


1095 


10 


01 




EX 


LI8RN 





SFX CT LOCN INSTRUCTION TYPE CARD 



164 
164 
164 
164 
165 
165 
165 
165 
165 
165 
165 
166 
166 
166 
166 
166 
166 
166 
167 



1 


3809 


5 


3814 


5 


3819 


5 


3824 


5 


3829 


5 


3834 


5 


3839 


5 


3844 


5 


3849 


5 


3854 


5 


3859 


5 


3864 


5 


3869 


5 


3874 


5 


3879 


5 


3884 


5 


3889 


5 


3894 


5 


3899 



3902 

3903 

1 3989 

3989 



3154 
3155 

AZ. *» i 

3115 
3114 



3988 



167 
GMARK 168 



B 000 



169 



1401 AUTOCGCER-PASS 4-LEFT MAIN LIME 



-VERSION 3 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




1096 


10 


02 




JOB 


1401 AUTOCODER-PASS 4-LE 


FT 


1097 


10 


03 




SFX 


Z 




1098 


10 


04 


» 








1099 


10 


05 


♦ INITIALIZATION OF INDEX LOCATIONS 




1100 


10 


06 


* 








1101 


10 


07 




ORG 


085 




1102 


10 


08 


GRPMK1 


DC 


t i 




1103 


10 


09 




DC 







1104 


10 


10 


XL1 


ocw 


000 




1105 


10 


11 




DC 


00 




1106 


10 


12 


XL2 


DCW 


000 




1107 


10 


13 




DC 


00 




1108 


10 


14 


XL3 


DCW 


000 




1109 


10 


15 




DS 


1 




1110 


10 


16 


* 








1111 


10 


17 


♦FIXED 


FORM 


IMAGE AREA 




1112 


10 


18 


* 








1113 


10 


19 


IMAGE 


EQU 


■» 




1114 


10 


20 




DS 


84 




1115 


10 


21 


GRPMK4 


DC 


t i 




1116 


10 


22 


ZONE 


DCW 


•2SKB* 




1117 


10 


23 


EXCVFL 


DCW 


99 




1118 


10 


24 


EXNUMB 


DCW 


00 




1119 


10 


25 


PROCQR 


DCW 


= 1 




1120 


10 


26 


TOTLBL 


DCW 


+0000 




1121 


10 


27 


JOBSW 


DCW 







1122 


10 


28 


* 








1123 


10 


29 


* READ 


IN CONTROL CARD OVERLAP 




1124 


10 


30 


• 








1125 


10 


31 


PASSB2 


RTW 


SYSTAP.DGPROG 




1126 


10 


32 




NOP 







i i »■» -» 

Li.C.1 


1 rt 


33 




DCIV 


-r r» «- n n 

i rcrvn. 




1128 


10 


34 




B 


START 




1129 


10 


35 


* 




. 




1130 


10 


36 


*TAPE 1 


REDUNDANCY ROUTINE 




1131 


10 


37 


* 








1132 


10 


38 


TPERR 


SBR 


XL3 




1133 


10 


39 




SBR 


REDXT+3 




1134 


10 


40 




MZ 


*9,XL3 




1135 


10 


41 




MCW 


4000-10+X3,TPINS+7 




1136 


10 


42 




MN 


TPINS+3,BSPl+3 




1137 


10 


43 




MCW 


TPINS+7,INST2+7 




1138 


10 


44 


BSP1 


BSP 


INITAP 




1139 


10 


45 




BCE 


WRTRD,TPINS+7,W 




1140 


10 


46 




MCW 


+9 t R0CT=l 




1141 


10 


47 


TPINS 


RT 


INITAPtXXXX 




1142 


10 


48 




BER 


RDERR 




1143 


10 


49 


REDXT 


B 


XXXX 




1144 


10 


50 


RDERR 


MN 


TPINS+3,BSP2+3 




1145 


10 


51 


BSP2 


BSP 


INITAP 





SFX CT LOCN INSTRUCTION TYPE CARD 



MAIN LINE 



-vERSIGM 3 



CONSTANTS USED IN 
MAKING LITERAL LABELS 



BRING IN INSTRUCTION 

THAT COUSED 

REDUNDANCY 
BACKSPACE TAPE 
Q. WRITE REDUNDANCY 
INITIALIZE COUNTER 
RE-READ 

Q. REDUNDANT AGAIN 
EXIT 

BACKSPACE AGAIN 



0085 



z 


1 


0085 


z 


1 


0086 


z 


3 


0089 


z 


2 


0091 


I 


3 


0094 


z 


2 


0096 


z 
z 


3 


0099 
0100 



Z 




0100 


Z 




0184 


Z 


1 


0185 


z 


4 


0189 


z 


2 


0191 


z 


2 


0193 


z 


1 


0194 


z 


4 


0198 


z 


1 


0199 



Z 


8 


0200 


L 


<U1 


N75 R 


z 


4 


0208 


N 


000 




7 






Q 
U 




i 



4 0217 B N75 



172 
172 
172 
172 
172 
172 
172 



173 
173 
173 
173 
173 
174 
174 



174 
174 

ITT A 

A. * -r 

174 



z 


4 


0221 


H 


099 




174 


I 


4 


0225 


H 


293 




175 


z 


7 


0229 


Y 


464 


099 


175 


z 


7 


0236 


M 


110 


284 


i|£ 


z 


7 


0243 


D 


280 


260 


175 


z 


7 


0250 


M 


284 


393 


175 


z 


5 


0257 


U 


(UO 


B 


175 


z 


8 


0262 


B 


366 


284 W 


176 


z 


7 


0270 


M 


464 


465 


176 


z 


8 


0277 


M 


(UO 


000 R 


176 


z 


5 


0285 


8 


294 


L 


176 


z 


4 


0290 


B 


000 




176 


z 


7 


0294 


D 


280 


304 


176 


z 


5 


0301 


U 


(UO 


B 


177 



1401 AUTOCODER-PASS 4-LEFT MAIN LINE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1146 


10 


52 




S 


+1,RDCT 


1147 


10 


53 




BfcZ 


TPINS,RDCT,B 


1148 


10 


54 




MN 


TPINS+3,TPHLT+6 


1149 


10 


55 


TPHLT 


H 


XXXX,490 


1150 


10 


56 




MCW 


TPINS+7,*+8 


1151 


10 


57 




RT 


INITAP.XXXX 


1152 


10 


58 




BSS 


BSP1*E 


1153 


10 


59 




H 


XXXX,402 


1154 


10 


60 




B 


REDXT 


1155 


10 


61 


WRTRD 


SKP 


SYSTAP 


1156 


10 


62 




BCE 


SBCTR,WRTCR-lt5 


1157 


10 


63 




A 


+1,WRTCR=2 


1158 


10 


64 


INST2 


WT 


INITAPtXXXX 


1159 


10 


65 




BER 


BSP1 


1160 


10 


66 




B 


REDXT 


1161 


10 


67 


SBCTR 


S 


WRTCR 


1162 


10 


68 




MN 


TPINS+3»*+7 


1163 


10 


69 




H 


XXXX,460 


1164 


10 


70 




B 


INST2 


1165 


10 


71 


* 






1166 


10 


72 


* NCISE RECORD ROUTINE 


1167 


10 


73 


* 






1168 


10 


74 


NOISE 


SBR 


XL3 


1169 


10 


75 




SBR 


NSXT+3 


1170 


10 


76 




M2 


+9, XL3 


1171 


10 


77 


N2 


BCE 


4000-12+X3»XXXX f 


1172 


10 


78 




CHAIN 


12 


1173 








BCE 




1174 








BCE 




1175 








BCE 




1176 








BCE 




1177 








BCE 




1178 








BCE 




1179 








BCE 




1180 








BCE 




1181 








BCE 




1182 








BCE 




1183 








BCE 




1184 








BCE 




1185 


10 


79 


NSXT 


B 


XXXX 


1186 


10 


80 




LTORG 
DCH 


* 
+ 9 






L14C 


RCCT 




=01 
+ 1 






L157 


ViRTCR 




=02 


1187 


10 


81 


• 






1188 


10 


82 


•END OF CONTROL CARD ANALYSIS, 


1189 


10 


83 


« 






1190 


10 


84 


CWI98 


CW 


3998 


1191 


10 


85 




SW 


JOBSW 



IN LINE -VERSION 3 






3741L 








PAGE 


27 






SFX 


CT 


LQCN 


INSTRUCTION TYPE 


CARD 


REDUCE COUNTER 




2 


7 


0306 


S 


466 


465 




177 


Q. 10 SUCCESSIVE 


READS 


2 


8 


0313 


V 


277 


465 


B 


177 






2 


7 


0321 


D 


280 


334 




177 


HALT 




2 


7 


0328 


• 


000 


490 




177 






2 


7 


0335 


M 


284 


349 




178 


RE-READ 




2 


8 


0342 


M 


(UO 


000 


R 


178 


DETERMINE OPTION 




2 


5 


0350 


B 


257 


E 




178 


HALT AGAIN 




2 


7 


0355 


• 


000 


402 




178 


EXIT 




2 


4 


0362 


B 


290 






178 


ERASE TAPE 




2 


5 


0366 


U 


<U1 


E 




178 


Q. FIFTY SKIPS 




2 


8 


0371 


B 


403 


467 


5 


179 


INCREASE COUNTER 




2 


7 


0379 


A 


466 


468 




179 


RE-WRITE 




2 


8 


0386 


M 


tuo 


000 


W 


179 


Q. REDUNDANT AGAIN 


I 


5 


0394 


B 


257 


L 




179 






2 


4 


0399 


B 


290 






179 


RESET COUNTER 




Z 


4 


0403 


S 


468 






179 






2 


7 


0407 


D 


280 


420 




180 


HALT 




2 


7 


0414 


• 


000 


460 




180 






2 


4 


0421 


B 


386 






180 



SCAN FOR GROUP MARK 



2 


4 


0425 


H 


099 




180 


2 


4 


0429 


H 


463 




180 


2 


7 


0433 


Y 


464 099 




180 


2 


8 


0440 


B 


IH8 000 


MACRO 


181 


2 


1 


0448 


B 




GEN 


181 


2 


1 


0449 


8 




GEN 


181 


2 


1 


0450 


6 




GEN 


181 


2 


1 


0451 


B 




GEN 


181 


7 
i. 


JL 


rs /. c-5 
\i-r~2c 


a 

u 






1 01 

J. W X 


2 


1 


0453 


8 




GEN 


181 


2 


1 


0454 


B 




GEN 


182 


2 


1 


0455 


B 




GEN 


182 


2 


1 


0456 


8 




GEN 


182 


2 


1 


0457 


B 




GEN 


182 


2 


1 


0458 


B 




GEN 


182 


2 


1 


0459 


B 




GEN 


182 


2 


4 


0460 


B 


000 




182 


2 






0464 






2 


1 


0464 






LIT 


183 


2 


1 


0465 






AREA 


183 


2 


1 


0466 






LIT 


183 


2 


2 


0468 






AREA 


183 



READ IN MAIN LINE 



0469 
0473 



) 198 
♦ 199 



183 
183 



1401 AUTOCODER-PASS 4-LEFT MAIN LINE 



-VERSION 3 



3741L 
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SEC 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


1192 


10 


86 




8 


PUT 


1193 


10 


87 


RTNJ8 


cw 


JOBSW 


1194 


10 


88 




8 


wrtp 


1195 


10 


89 


LDCPT8 


RTW 


SYSTAP,DOPRGG 


1196 


10 


90 




NOP 





1197 


10 


91 




BER 


TPERR 


1198 


10 


92 




cw 


GRPMK5,GRPMK8 


1199 


10 


93 




MLC 


•OSFACTOR-3 


1200 


10 


94 


* 






1201 


10 


95 


•START 


OF MAIN LINE 


1202 


10 


96 


« 






1203 


10 


97 


BYPASS 


B 


GET 


1204 


10 


98 




S 


XL3 + 1 


1205 


10 


99 




s 




1206 


11 


00 




s 




1207 


11 


01 




B 


CKCOM 


1208 


11 


02 


» 






1209 


11 


03 


•BEGINNING OF NEW CARD ANALYSIS 


1210 


11 


04 


* 






1211 


11 


05 


NUREC 


B 


PUT 


1212 


11 


06 


GET 


SBR 


GETXT+3 


1213 


11 


07 




cs 


INPUT+80 


1214 


11 


08 




sw 


INPUT+21 


1215 


11 


09 




SBR 


N2+6,INPUT+13 


1216 


11 


10 




RT 


INTAP,INPUT+1 


1217 


11 


11 




B 


NOISE 


1218 


11 


12 




BER 


TPERR 


1219 


11 


13 


GETXT 


B 


XXXX 


1220 


11 


14 


* 






1221 


11 


15 


•IMAGE 


TO OUTPUT AREA 


1222 


11 


16 


* 








1 1 


A f 


unTft 
»m l r 


can 


I.1DT «Ti1 
WIN I A I ~r j 


1224 


11 


18 




WT 


OUTAP,OUTPUT+l 


1225 


11 


19 




NOP 





1226 


11 


20 




BER 


TPERR 


1227 


11 


21 




MLC 


•OOOSHOLOC 


1228 


11 


22 


WRTXT 


B 


XXXX 


1229 


11 


23 


PUT 


SBR 


PUTXT+3 


1230 


11 


24 




MLC 


H0LDCXL3 


1231 


11 


25 




MLC 


IMAGE+80,CUTPUT+8C+X3 


1232 


11 


26 




CHAIN 


10 


1233 








MLC 




1234 








MLC 




1235 








MLC 




1236 








MLC 




1237 








MLC 




1238 








MLC 




1239 








MLC 




1240 








MLC 




1241 








MLC 





SFX CT LOCN INSTRUCTION TYPE CARD 





2 


4 


0477 


8 610 


183 




2 


4 


0481 


) 199 


184 




z 


4 


0485 


8 578 


184 


READ IN MAIN LINE 


2 


8 


0489 


L <Ul N75 R 


184 


OVERLAP 


2 


4 


0497 


N 000 


184 




2 


5 


0501 


B 221 L 


184 




2 


7 


0506 


) N74 H99 


184 




2 


7 


0513 


M M83 H45 


1 84 



PROCESS BYPASSED CARDS 



PUT LAST RECORD 
GET ROUTINE 



READ TAPE 
CHECK FOR 

EXIT 



NOISE 



WRITE TAPE 



PUT ROUTINE 

WORK AREA TO OUTPUT 



2 


4 


0520 


B 


538 


2 


4 


0524 


S 


100 


2 


l 


0528 


S 




2 


l 


0529 


S 




2 


4 


0530 


B 


706 



185 
185 
185 
185 
185 



2 


4 


0534 


8 610 


185 


2 


4 


0538 


H 577 


185 


2 


4 


0542 


/ 080 


186 


2 


4 


0546 


, 021 


186 


2 


7 


0550 


H 446 013 


186 


2 


8 


0557 


M tU4 001 R 


186 


2 


4 


0565 


B 425 


186 


2 


5 


0569 


8 221 L 


186 


2 


4 


0574 


B 000 


186 





A 

T 


ACTO 


Li 
n 


UV7 






187 


2 


8 


0582 


M 


CU5 


Il8 


W 


187 


2 


4 


0590 


N 


000 






187 


2 


5 


0594 


B 


221 


L 




187 


2 


7 


0599 


M 


M86 


M9l 




187 


2 


4 


0606 


B 


000 






18 7 


2 


4 


0610 


H 


705 






187 


2 


7 


0614 


M 


M9l 


099 




188 


2 


7 


0621 


M 


180 


II7 


MACRO 


188 


2 


l 


0628 


M 






GEN 


188 


2 


l 


0629 


M 






GEN 


188 


2 


l 


0630 


M 






GEN 


188 


2 


l 


0631 


M 






GEN 


188 


2 


l 


0632 


M 






GEN 


188 


2 


l 


0633 


M 






GEN 


189 


2 


I 


0634 


M 






GEN 


189 


2 


I 


0635 


M 






GEN 


189 


2 


l 


0636 


M 






GEN 


189 



1401 AUTGCOCER-PASS 4-LEFT WAIN LINE 



-VERSION 3 



3741L 



PAGE 29 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1242 








MLC 




1243 


11 


27 


TPYET 


A 


+80,H0LDC=3 


1244 


11 


28 


CKTAP 


BCE 


WRTP,XL3-2,C 


1245 


11 


29 




BW 


DCWXT, DCWSW2 


1246 


11 


30 




BW 


SPGLIN, INITSW 


1247 


11 


31 




cs 


INPUT+80 


1248 


11 


32 




sw 


INPUT+21 


1249 


11 


33 




MRCM 


INPUT+1,IMAGE+1 


1250 


11 


34 




BW 


RTNJB,JQBSH 


1251 


11 


35 


SPGLIN 


S 


IMAGE+5 


1252 


11 


36 




S 


XL3+1 


1253 


11 


37 




S 




1254 


11 


38 




S 




1255 


11 


39 


PUTXT 


B 


XXXX 


1256 


11 


40 


SAVE2 


ORG 


# 


1257 


11 


41 


CKCGM 


BCE 


BYPASS, INPUT+6,* 


1258 


11 


42 




MN 


INPUT+75,CK2+7 


1259 


11 


43 




MZ 


INPUT+75.CK2+7 


1260 


11 


44 


CK2 


BCE 


BYPASS, *RSWZ»,0 


1261 


11 


45 




CHAIN 


3 


1262 








BCE 




1263 








BCE 




1264 








BCE 




1265 


11 


46 




MLC 


INPUT+84,IMAGE+80 


1266 


11 


47 




BWZ 


*+5, INPUT+6, 2 


1267 


11 


48 




B 


PROLBL 


1268 


11 


49 




MCW 


INPUT+18,IMAGE+16 


1269 


11 


50 




SW 


SCANSW 


1270 


11 


51 




MLC 


•00CNFREEA=3 


1271 


11 


52 




LCA 


BLANK4,EQUAC0 


1272 


11 


53 




MCW 


•I9ISXL1 


1273 


11 


54 


rudUAni 


BCE 


nt nrrn ttinuT • lCi ul 


1274 


11 


55 


GOBK 


C 


XL1,'I9G« 


1275 


11 


56 




A 


•I99SXL1 


1276 


11 


57 




BL 


PLSCAN 


1277 


11 


58 


PLUSFD 


BCE 


G0BK,INPUT+14+X1,+ 


1278 


11 


59 




SW 


EQUADD+1+Xl 


1279 


11 


60 




MCW 


INPUT+15,EQUADD=4 


1280 


11 


61 




S 


XL1+2 


1281 


11 


62 




BW 


INSTR,EQUADC 


1282 


11 


63 




BCE 


CTRLOP,EQLADD, 


1283 


11 


64 




B 


INSTR 


1284 


11 


65 


» 






1285 


11 


66 


•SCAN 1 


FOR COMMA OR BLANK 


1286 


11 


67 


* 






1287 


11 


68 


CCMSCN 


SBR 


CSCNXT+3 


1288 


11 


69 




S 


XL3 + 1 


1289 


11 


70 




SW 


INPUT+21+X2, SCANSW 


1290 


11 


71 


TSTCCM 


A 


+1,XL2 


1291 


11 


72 




A 


+1.XL3 



SFX CT LOCN INSTRUCTION TYPE CARD 







I 


1 


0637 


M 








GEN 


189 






I 


7 


0638 


A 


M88 


M91 






189 


0. WRITE YET 




1 


8 


0645 


"B" 


578 


097 







189 


Q. DCW GT 30 CHARS 




Z 


8 


0653 


V 


J85 


H92 


1 




190 


Q. DA RECORD 




I 


8 


0661 


V 


692 


H87 


1 




190 


CLEAR IMAGE AND 




I 


4 


0669 


/ 


080 








190 


INPUT AREAS 




Z 


4 


0673 


t 


021 








190 






I 


7 


0677 


P 


001 


101 






190 


Q. JOB CARD 




I 


8 


0684 


V 


481 


199 


1 




190 


WIPE OUT PG/LIN NUMBR 


I 


4 


0692 


S 


105 








191 


ZERO INDEX 




1 


4 


0696 


S 


100 








191 


LOCATIONS 




1 

I 


1 
1 


0700 
0701 


s 

S 










191 
191 


EXIT 




Z 


4 


0702 


B 


000 








191 






1 




0706 


0706 










Q. COMMENTS CARD 




I 


8 


0706 


B 


520 


006 


* 




191 






I 


7 


0714 


D 


075 


735 






191 






z 


7 


0721 


Y 


075 


735 






192 






z 


8 


0728 


B 


520 


M95 





MACRO 


192 






z 


1 


0736 


B 








GEN 


192 






z 


1 


0737 


B 








GEN 


192 






z 


1 


0738 


8 








GEN 


192 


ALTER NO TO FIXED 


FORM 


z 


7 


0739 


M 


084 


180 






192 


Q. IS THERE LABEL 




z 


8 


0746 


V 


758 


006 


2 




192 


PROCESS LABEL 




z 


4 


0754 


B 


V38 








193 


MNEMONIC TO FIXED 


FORM 


z 


7 


0758 


M 


018 


116 






193 


RESET SCAN SWITCH 




z 


4 


0765 


t 


N15 








193 






z 


7 


0769 


M 


M36 


M98 






193 


RETRIEVE TABLE FUNCTN 


z 


7 


0776 


L 


H62 


Nil 






193 


THAT WAS 




z 


7 


0783 


M 


NOi 


089 






193 


ucHcKHicu or r»oo 


i 
j 


7 


8 


f\~tr%n 


o 


017 








194 






1 


7 


0798 


C 


089 


N04 






194 






I 


7 


0805 


A 


N07 


089 






194 






z 


5 


0812 


B 


790 


T 






194 






I 


8 


0817 


B 


798 


0/4 


+ 




194 






z 


4 


0825 


, 


N/2 








194 






z 


7 


0829 


M 


015 


Nil 






195 






z 


4 


0836 


S 


091 








195 


Q. REGULAR INSTRUCTION 


z 


8 


0840 


V 


N75 


Nil 


1 




195 


Q. CONTROL OP 




z 


8 


0848 


B 


C61 


Nil 






195 






z 


4 


0856 


8 


N75 








195 



INDEX LOCATION 3 
CONTAINS TOTAL 
POSITIONS SCANNED 
INCLUDING COMMA OR 
BLANK FOR OPERAND 



z 


4 


0860 


H 932 


195 


z 


4 


0864 


S 100 


195 


z 


7 


0868 


, OKI N15 


196 


z 


7 


0875 


A N12 094 


196 


z 


7 


0882 


A N12 099 


196 



1401 AUTOCODER-PASS 4-LEFT MAIN LINE 



-VERSION 3 



3741L 



PAGE 30 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1292 


11 


73 




BCE 


PRSCXT, INPUT+20+X2, » 


1293 


11 


74 




C 


INPUT+2H-X2,BLANK2 


1294 


11 


75 




BE 


CSCNXT 


1295 


11 


76 




C 


XL2» , 54" 


1296 


11 


77 




BE 


SCNERR 


1297 


11 


78 




B 


TSTCOM 


1298 


11 


79 


PRSCXT 


CW 


SCANSW=1 


1299 


11 


80 


CSCNXT 


B 


XXXX 


1300 


11 


81 


SCNERR 


MZ 


B8IT,IMAGE+5 


1301 


11 


82 




BCE 


CSCNXT, IMAGE+75, 3 


1302 


11 


83 




8 


NUREC 


1303 


11 


84 


* 






1304 


11 


85 


•CONVERT FREE TO FIXED FORM 


1305 


11 


86 


» 






1306 


11 


87 


FR2FIX 


SBR 


FR2FXT+3 


1307 


11 


88 




MCW 


BLANK, W6AREA 


1308 


11 


89 




MCW 


XL2+1,XL3+1 


1309 


11 


90 


SCNDEX 


C 


XL3, , 04« 


1310 


11 


91 




BH 


DOADRS 


1311 


11 


92 




BE 


CKADJ 


1312 


11 


93 




C 


INPUT+lS+XSf'+X 1 


1313 


11 


94 




BU 


CKADJ 


1314 


11 


95 




MN 


INPUT+19+X3,IMAGE+27+Xl 


1315 


11 


96 




A 


+K4K-3,XL3 


1316 


11 


97 




B 


SCNDEX 


1317 


11 


98 


CKADJ 


BCE 


CKMIN,INPUT+18+X3,+ 


1318 


11 


99 


SCANB 


EQU 


*~1 


1319 


12 


00 




BCE 




1320 


12 


01 




BCE 




1321 


12 


02 


DOMIN 


BCE 


ISADJ, INPUT-H8 + X3,- 


1322 


12 


03 




BCE 




i -» *% t 

LJ£.J 








a m 




1324 


12 


05 




BCE 


ISADJ, INPUT+18+X3,= 


1325 


12 


06 




BCE 




1326 


12 


07 




BCE 




1327 


12 


08 




B 


DOADRS 


1328 


12 


09 


ISADJ 


SBR 


W3AREA 


1329 


12 


10 


PROADJ 


S 


+SCANB,W3AREA 


1330 


12 


11 




MLC 


XL2,HGLD3 


1331 


12 


12 




MLNS 


W3AREA,XL2 


1332 


12 


13 




MLC 


•00' 


1333 


12 


14 




MLC 


INPUT+19+X3.W3AREA-4+X2 


1334 


12 


15 




S 


XL2+1,XL3+1 


1335 


12 


16 




MZ 


INPUT+20+X3,W3AREA-4+X2 


1336 


12 


17 




MN 


INPUT+20+X3,W6AREA 


1337 


12 


18 




SW 


IMAGE+24+X1 


1338 


12 


19 




A 


W3AREA-4+X2,IMAGE+26+Xl 


1339 


12 


20 




CW 


IMAGE+24+X1 


1340 


12 


21 




MLC 


H0LD3,XL2 


1341 


12 


22 




B 


SCNDEX 



SFX CT LQCN INSTRUCTION TYPE CARD 



INDEX LOCATION 2 

CONTAINS TOTAL 

POSITIONS SCANNED FOR 

ALL OPERANDS 
SCANSW SHOWS WHETHER 

SCAN TERMINATED BY 

COMMA OR TWO BLANKS 



z 


8 


0889 


B 925 


OKO , 


196 


z 


7 


0897 


C OKI 


H60 


196 


z 


5 


0904 


B 929 


S 


197 


z 


7 


0909 


C 094 


N14 


197 


z 


5 


0916 


8 933 


S 


197 


z 


4 


0921 


B 875 




197 


z 


4 


0925 


> N15 




197 


z 


4 


0929 


8 000 




197 


z 


7 


0933 


Y 188 


105 


197 


z 


8 


0940 


B 929 


175 3 


198 


z 


4 


0948 


B 534 




198 





Z 


4 


0952 


H 


S32 




198 




Z 


7 


0956 


M 


H59 


H77 


198 




z 


7 


0963 


M 


095 


100 


198 


ANY CHARACTER ADJ 


z 


7 


0970 


C 


099 


N17 


198 


OR INDEXING 


I 


5 


0977 


B 


/50 


U 


199 




1 


5 


0982 


B 


+ 17 


S 


199 


Q. INDEXING 


z 


7 


0987 


C 


0A8 


N19 


199 


PROCESS INDEXING 


z 


5 


0994 


8 


+ 17 


/ 


199 




z 


7 


0999 


D 


0A9 


1S7 


199 




z 


7 


1006 


A 


N22 


099 


199 




z 


4 


1013 


B 


970 




200 




z 


8 


1017 


B 


/34 


0A8 ♦ 


200 


CHARACTER ADJUSTMENT 


z 




1023 










OR AREA DEFINITION 


z 


1 


1025 


B 






200 


LITERAL CODE 


z 


1 


1026 


B 






200 




z 


8 


1027 


B 


+51 


0A8 - 


200 




z 


1 


1035 


B 






200 




1 




J. w^u 








C\JU 




1 


8 


1037 


B 


♦ 51 


0A8 = 


201 




1 


1 


1045 


8 






201 




I 


1 


1046 


B 






201 




1 


4 


1047 


B 


/50 




201 


PROCESS CHARACTER 


z 


4 


1051 


H 


H74 




201 


ADJUSTMENT 


z 


7 


1055 


S 


N25 


H74 


201 




z 


7 


1062 


M 


094 


H65 


201 




z 


7 


1069 


D 


H74 


094 


202 




z 


4 


1076 


M 


N27 




202 




z 


7 


1080 


M 


0A9 


HPO 


202 




z 


7 


1087 


S 


095 


100 


202 




z 


7 


1094 


Y 


OBO 


HPO 


202 




z 


7 


1101 


D 


OBO 


H77 


202 




z 


4 


1108 


t 


1S4 




203 


ADD CHAR ADJUSTMENT TO 


z 


7 


1112 


A 


HPO 


1S6 


203 


FIXED FORM 


z 


4 


1119 


3 


1S4 




203 




z 


7 


1123 


M 


H65 


094 


203 




z 


4 


1130 


B 


970 




203 













1401 AUTOCODER-PASS 4-LEFT 


MAIN LINE -VERSION 3 






3741L 






PAGE 


31 


SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




SFX 


CT 


LOCN 


INSTRUCTION TYPE 


CARD 


1342 


12 


23 


CKMIN 


SBR 


W3AREA 


ACCOUNT FOR POSSIBLE 


Z 


4 


1134 


H 


H74 




203 


1343 


12 


24 




BCE 


D0MIN,INPLT+18+X3,- 


MULTI-CHAR ADJ OF 


Z 


8 


1138 


B 


*27 


0A8 - 


203 


1344 


12 


25 




B 


PROADJ 


+1-2 TYPE 


Z 


4 


1146 


B 


*55 




204 


1345 


12 


26 


DOADRS 


S 


FREEA,XL3 


PROCESS ADDRESS 


Z 


7 


1150 


S 


M98 


099 


204 


1346 


12 


27 




C 


XL3,+G07 


Q. OLLEGAL ADDRESS 


Z 


7 


1157 


C 


099 


N30 


204 


1347 


12 


28 




BL 


FIXER 


LENGTH 


Z 


5 


1164 


B 


S33 


T 


204 


1348 


12 


29 




A 


FREEA,XL3 




Z 


7 


1169 


A 


M98 


099 


204 


1349 


12 


30 




MZ 


BLANK, XL3 




Z 


7 


1176 


Y 


H59 


099 


204 


1350 


12 


31 




MCW 


»**,INPUT+2G+X3 




Z 


7 


1183 


M 


N31 


080 


205 


1351 


12 


32 




MLC 


FREEA,XL3 




Z 


7 


1190 


M 


M98 


099 


205 


1352 


12 


33 




MRCM 


INPUT+21+X3,IMAGE+17+X1 


MOVE ADDRESS TO IMAGE 


Z 


7 


1197 


P 


OBI 


1/7 


205 


1353 


12 


34 




SBR 


XL3 




Z 


4 


1204 


H 


099 




205 


1354 


12 


35 




MZ 


ABBIT,XL3 




Z 


7 


1208 


Y 


189 


099 


205 


1355 


12 


36 




MCW 


BLANK,400G-1+X3 




Z 


7 


1215 


M 


H59 


119 


205 


1356 


12 


37 




MN 


W6AREA,IMAGE+23+Xl 




z 


7 


1222 


D 


H77 


1S3 


206 


1357 


12 


38 


FR2FXT 


B 


XXXX 


EXIT 


z 


4 


1229 


B 


000 




206 


1358 


12 


39 


FIXER 


SW 


FIXSW=1 




z 


4 


1233 


t 


N32 




206 


1359 


12 


40 


OPCER 


MCW 


•000SXL3 


CODE STATEMENT 


z 


7 


1237 


M 


M86 


099 


206 


1360 


12 


41 




MZ 


ABIT,IMAGE+5 


BAD BUT PROCESSABLE 


z 


7 


1244 


Y 


187 


105 


206 


1361 


12 


42 




BCE 


*+8,XLl,0 




z 


8 


1251 


B 


S66 


089 


206 


1362 


12 


43 




MCW 


•003*^3 




z 


7 


1259 


M 


N35 


099 


207 


1363 


12 


44 




MCW 


!===•, IMAGE+70+X3 




z 


7 


1266 


M 


N38 


1G0 


207 


1364 


12 


45 




MZ 


ABBIT,IMAGE+1+X3 




z 


7 


1273 


Y 


189 


1+1 


207 


1365 


12 


46 




BW 


FR2FXT,FIXSl* 




z 


8 


1280 


V 


S29 


N32 1 


207 


1366 


12 


47 




B 


LTER2 




z 


4 


1288 


B 


U09 




207 


1367 


12 


48 


* 






















1368 


12 


49 


•SCAN 1 


FOR « 


SIGN 


















1369 


12 


50 


* 






















1370 


12 


51 


SCANAT 


SBR 


SCNATX+3 




z 


4 


1292 


H 


T85 




207 


1371 


12 


52 




SW 


INPUT+21+X2,SCANSW 


SCAN IS EXECUTED FROM 


z 


7 


1296 


* 


OKI 


N15 


208 


1372 


12 


53 




ZA 


»510» ,XL3+1 


RIGHT TO LEFT 


z 


7 


1303 


+ 


N41 


100 


208 


1 1"H 






a i a i r- 


a r-f: 






t 

L. 


o 
o 




a 
a 


-r in 

1 4L 7 


no i i 
vux 




1374 


12 


55 




s 


+1G.XL3+1 




1 


7 


1318 


s 


N43 


100 


208 


1375 


12 


56 




B 


A1ALF 




I 


4 


1325 


B 


T10 




208 


1376 


12 


57 


NDASCN 


C 


XL2.XL3 


Q. NO ENDING • SIGN 


I 


7 


1329 


C 


094 


099 


209 


1377 


12 


58 




BE 


LTERR 




I 


5 


1336 


B 


T94 


S 


209 


1378 


12 


59 




BCE 


SETSW, INPUT+22+X3,, 


Q. IS ENDING « SIGN 


I 


8 


1341 


B 


T86 


0B2 , 


209 


1379 


12 


60 




C 


INPUT+23+X3,BLANK2 


FOLLOWED BY COMMA OR 


z 


7 


1349 


C 


0B3 


H60 


209 


1380 


12 


61 




BU 


LTERR 


TWO BLANKS 


z 


5 


1356 


B 


T94 


/ 


209 


1381 


12 


62 


SXL 


S 


XL2+1,XL3+1 




z 


7 


1361 


S 


095 


100 


209 


1382 


12 


63 




A 


+2,XL3 




z 


7 


1368 


A 


N44 


099 


210 


1383 


12 


64 




A 


XL3,XL2 




z 


7 


1375 


A 


099 


094 


210 


1384 


12 


65 


SCNATX 


B 


XXXX 


EXIT 


z 


4 


1382 


B 


000 




210 


1385 


12 


66 


SETSW 


cw 


SCANSW 




z 


4 


1386 


) 


N15 




210 


1386 


12 


67 




B 


SXL 




z 


4 


1390 


B 


T61 




210 


1387 


12 


68 


• 






















1388 


12 


69 


•IMPROPERLY 


CODED STATEMENT ROUTINE 


















1389 


12 


70 


* 






















1390 


12 


71 


LTERR 


MLZS 


ABIT.IMAGE+5 


MARK STATEMENT 


z 


7 


1394 


Y 


187 


105 


210 


1391 


12 


72 




CW 


FIXSW 


BAD BUT PROCESSABLE 


z 


4 


1401 


) 


N32 




210 



1401 AUTOCGCER-PASS 4-LEFT MAIN LINE 



-VERSION 3 



374 1L 



PAGE 



32 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1392 


12 


73 




B 


OPDER 


1393 


12 


74 


LTER2 


8 


COMSCN 


1394 


12 


75 




MCW 


•• »,INPUT+2C+X3 


1395 


12 


76 




A 


+1,XL3 


1396 


12 


77 




B 


SCNATX 


1397 


12 


78 


* 






1398 


12 


79 


♦PLACE 


LITERALS ON MASTER TAPE 


1399 


12 


80 


* 






1400 


12 


81 


CALL 


BW 


CKLOR f LITSW=l 


1401 


12 


82 




RT 


SYSTAP, INPUT+1 


1402 


12 


83 




RTW 


SYSTAP, DOPRGG 


1403 


12 


84 




NOP 





1404 


12 


85 




BER 


TPERR 


1405 


12 


86 




8 


OVLLIT 


1406 


12 


87 


RECALL 


RTW 


SYSTAP, DOPRGG 


1407 


12 


88 




NOP 





1408 


12 


89 




BER 


TPERR 


1409 


12 


90 


CKLOR 


BCE 


BYPASS, IMAGE+75, 


1410 


12 


91 




BCE 


NUREC,IMAG£+75,C 


1411 


12 


92 




RT 


SYSTAP, INPUT+1 


1412 


12 


93 




RT 


SYSTAP, INPUT+1 


1413 


12 


94 




RTW 


SYSTAP, EOJRT 


1414 


12 


95 




NOP 





1415 


12 


96 




BER 


TPERR 


1416 


12 


97 




B 


EOJRT 


1417 


12 


98 


• 






1418 


12 


99 


♦GENERATE ENTRY ADDRESS FOR LA 


1419 


13 


00 


* 






1420 


13 


01 


PR0L8L 


S8R 


XTLABL+3 


1421 


13 


02 




MLC 


INPUT+11,IMAGE+13 


1422 


13 


03 




MLC 


IMAGE+13,W6AR£A 


1423 


13 


04 




B 


PROLAB 


1424 


13 


05 




MLC 


W3AR£A,IMAGE+56 


1425 


13 


06 




A 


+1,TGTLBL 


1426 


13 


07 


XTLABL 


B 


XXXX 


1427 


13 


08 


* 






j- 4 ~2e 


13 


09 


•CONVERT FREE FORM NUMBER TO F 


1429 


13 


10 


« 






1430 


13 


11 


CVRT5 


S8R 


CVT5XT+3 


1431 


13 


12 




BCE 


*+5,N5AREA,+ 


1432 


13 


13 


CVT5XT 


B 


XXXX 


1433 


13 


14 




2A 


W5AREA-1,K5AREA 


1434 


13 


15 




B 


CVRT5+4 


1435 


13 


16 


• 






1436 


13 


17 


♦ CHECK FOR 


FINAL OPERAND 


1437 


13 


18 


* 






1438 


13 


19 


FNLCP 


SBR 


FNLXT+3 


1439 


13 


20 




BU 


FNLXT, SCANS* 


1440 


13 


21 




MZ 


ABIT,IMAGE+5 


1441 


13 


22 


FNLXT 


B 


XXXX 



SFX CT LOCN INSTRUCTION TYPE CARD 





Z 


4 


1405 


B 


S37 






211 




I 


4 


1409 


8 


860 






211 




Z 


7 


1413 


M 


N45 


OBO 




211 




1 


7 


1420 


A 


N12 


099 




211 




1 


4 


1427 


B 


T82 






211 


Q* ANY LITERALS 


Z 


8 


1431 


V 


U85 


N46 


1 


211 


READ IN PROCESS 


I 


8 


1439 


M 


(Ul 


001 


R 


212 


LITERALS OVERLAP 


I 


8 


1447 


L 


<U1 


N75 


R 


212 




I 


4 


1455 


N 


000 






212 




I 


5 


1459 


B 


221 


L 




212 


GO TO ROUTINE 


Z 


4 


1464 


B 


N75 






212 


RECALL MAIN LINE 


I 


8 


1468 


L 


CU1 


N75 


R 


212 


OVERLAP 


Z 


4 


1476 


N 


000 






213 




I 


5 


1480 


B 


221 


L 




213 


0. LITERAL ORIGIN 


Z 


8 


1485 


B 


520 


175 




213 


Q. EXECUTE 


I 


8 


1493 


B 


534 


175 


C 


213 


SKIP PAST OVERLAPS 


I 


8 


1501 


M 


CUl 


001 


R 


213 


AND READ IN END OF 


I 


8 


1509 


M 


(Ul 


001 


R 


214 


JOB OVERLAP 


1 


8 


1517 


L 


CUl 


706 


R 


214 




I 


4 


1525 


N 


000 






214 




z 


5 


1529 


B 


221 


L 




214 




z 


4 


1534 


B 


706 






214 



1ELS 



z 


4 


1538 


H V77 




214 


z 


7 


1542 


M Oil 


113 


215 


z 


7 


1549 


M 113 


H77 


215 


7 


T 


1 CC4L 


Q \ J /. T 




215 


z 


7 


1560 


M H74 


156 


215 


z 


7 


1567 


A N12 


198 


215 


z 


4 


1574 


B 000 




215 



VE CHARACTERS 



z 


4 


1578 


H V93 


216 


z 


8 


1582 


B V94 H76 + 


216 


z 


4 


1590 


B 000 


216 


z 


7 


1594 


+ H75 H76 


216 


z 


4 


1601 


B V82 


216 



Q. FINAL OPERAND 
FOLLOWED BY TWO 
BLANKS 



z 


4 


1605 


H W27 


216 


z 


8 


1609 


V W24 N15 1 


216 


z 


7 


1617 


Y 187 105 


217 


z 


4 


1624 


B 000 


217 



1401 AUTOCOCER-PASS 4-LEFT MAIN LINE 



-VERSION 3 



3741L 



PAGE 33 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1442 


13 


23 


* 






1443 


13 


24 


•CGNVERT FLOATING A OPERAND ACTUAL 


1444 


13 


25 


* 






1445 


13 


26 


CVTFLA 


S8R 


FLAXT+3 


1446 


13 


27 




ZA 


IMAGE+21»W5AREA 


1447 


13 


28 




B 


CVRT5 


1448 


13 


29 


FLAXT 


B 


XXXX 


1449 


13 


30 


• 






1450 


13 


31 


♦CONVERT SYMBOLS TO THREE CHARACTER 


1451 


13 


32 


* 






1452 


13 


33 


PR0LA8 


S8R 


LBLXT+3 


1453 


13 


34 




ZA 


+2,H0LD2 


1454 


13 


35 




BCE 


*+5,W6AREA, 


1455 


13 


36 




B 


*+8 


1456 


13 


37 




MCW 


SFXHL0,W6AREA 


1457 


13 


38 




ZA 


W6AREA-2,HGL04 


1458 


13 


39 




A 


W6AR£A,H0LD4 


1459 


13 


40 




A 


W6AREA.H0LD4-2 


1460 


13 


41 




MLZS 


BLANK, H0LD4 


1461 


13 


42 




ZA 


FACTOR, H0LD7 


1462 


13 


43 


MPYLP 


MLNS 


H0LD7,H0LC1 


1463 


13 


44 




ZA 




1464 


13 


45 


MULT 


BCE 


NXT0GT,H0LD1,+ 


1465 


13 


46 




A 


HOL04,HOL07-2 


1466 


13 


47 




S 


+1,H0LD1 


1467 


13 


48 




B 


MULT 


1468 


13 


49 


NXTDGT 


S 


+1,H0LD2 


1469 


13 


50 




BUZ 


MPYLP, H0LC2,B 


1470 


13 


51 




S 


W5AREA 


1471 


13 


52 




BAV 


♦ ♦1 


1472 


13 


53 


L00P1 


A 


+96,H0LD7-5 


1473 


13 


54 




BAV 


L00P1 


1474 


13 


55 




MLZS 


H0LD7-6,W3AREA 


1475 


13 


56 




MLC 


H0LD7-3 


1476 


13 


57 




MLNS 


H0LD7-5,*+4 


1477 


13 


58 
_ 




MLZS 


ZQNE,W3AREA-2 


1478 


13 




LBLXT 


B 


XXXX 


1479 


13 


60 


« 






1480 


13 


61 


♦PROCESS DC* 


, DC, DSA CARDS 


1481 


13 


62 


* 






1482 


13 


63 


DCWCD 


BCE 


DCWALF,INPUT+21,« 


1483 


13 


64 




BCE 


ARDEF,INPUT+21,= 


1484 


13 


65 




BCE 


CKDCW,INPUT+21,+ 


1485 


13 


66 




BCE 


CKDCW,INPUT+21,- 


i486 


13 


67 




MLC 


INPUT+72,INPUT+73 


1487 


13 


68 




MCW 


• + • 


1488 


13 


69 




SW 


DCWSW 


1489 


13 


70 


CKCCW 


B 


COMSCN 


1490 


13 


71 




BCE 


ISDSA,INPUT+22,« 


1491 


13 


72 




B 


FfcLOP 



SFX CT LOCN INSTRUCTION TYPE CARD 



ADDRESS TO FIVE CHARACTERS 



LINK TO SUBROUTINE 



ENTRY ADDRESS 



ADD SUFFIX CHAR TO 
LABELS FIVE CHARS 
OR LESS 

FOLD SYMBOL TO 
FOUR CHARACTERS 

MULTIPLY BY FACTOR 



FOLD FIVE CHARACTER 
RESULT TO THREE 
CHARACTER TABLE ENTRY 
ADDRESS 



0. ALPHA CONSTANT 
Q. AREA DEFINITION 
Q. NUMERIC LITERAL 

SHIFT RIGHT 

SET NO ZONING SWITCH 
SCAN FOR BLANK 
Q. ADCON OF LITERAL 
CHECK LAST OPERAND 



z 


4 


1628 


H W46 


217 


z 


7 


1632 


♦ 121 H76 


217 


z 


4 


1639 


8 V78 


217 


z 


4 


1643 


B 000 


217 



Z 


4 


1647 


H 


Y10 




217 


z 


7 


1651 


♦ 


N44 


H64 


218 


z 


8 


1658 


B 


W70 


H77 


218 


z 


4 


1666 


B 


W77 




218 


z 


7 


1670 


M 


H86 


H77 


218 


z 


7 


1677 


♦ 


H75 


H71 


218 


z 


7 


1684 


A 


H77 


H71 


219 


z 


7 


1691 


A 


H77 


H69 


219 


z 


7 


1698 


Y 


H59 


H71 


219 


I 


7 


1705 


♦ 


H48 


H84 


219 


I 


7 


1712 


D 


H84 


H85 


219 


I 


1 


1719 


4- 






219 


z 


8 


1720 


B 


X46 


H85 + 


220 


z 


7 


1728 


A 


H71 


H82 


220 


z 


7 


1735 


S 


N12 


H85 


220 


z 


4 


1742 


B 


X20 




220 


z 


7 


1746 


S 


N12 


H64 


220 


z 


8 


1753 


V 


X12 


H64 B 


221 


z 


4 


1761 


S 


H76 




221 


z 


5 


1765 


B 


X70 


Z 


221 


z 


7 


1770 


A 


N48 


H79 


221 


t 


3 


1 -»-"»■-» 


O 


X70 


Z 


221 


1 


7 


1782 


Y 


H78 


H74 


221 


I 


4 


1789 


M 


H81 




222 


z 


7 


1793 


D 


H79 


Y03 


222 


z 


7 


1800 


Y 


189 


H72 


222 


z 


4 


1807 


B 


000 




222 



Z 


8 


1811 


B K44 021 • 


222 


I 


8 


1819 


B L01 021 = 


222 


1 


8 


1827 


B Y58 021 + 


223 


I 


8 


1835 


B Y58 021 - 


223 


I 


7 


1843 


M 072 073 


223 


1 


4 


1850 


M N49 


223 


I 


4 


1854 


, H89 


223 


1 


4 


1858 


B 860 


223 


I 


8 


1862 


B Y90 022 • 


224 


I 


4 


1870 


B W05 


224 



1401 AUTOCODER-PASS 4-LEFT MAIN LINE 



-VERSION 3 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1492 


13 


73 




BCE 


ISDSA, IMAGE+75, J 


1493 


13 


74 




BWZ 


ISDCW,INPUT+22,2 


1494 


13 


75 


* 






1495 


13 


76 


♦PROCESS DSA 


CARDS, SUBSET OF DCW 


1496 


13 


77 


* 






1497 


13 


78 


ISDSA 


MLC 


•011SXL1 


1498 


13 


79 




MLNS 


+2, IMAGE+75 


1499 


13 


80 




MZ 


INPUT+21,IMAGE+27 


1500 


13 


81 




MCW 


BLANK, INPUT+21 


1501 


13 


82 




BUZ 


*+5,IMAGE+75,K 


1502 


13 


83 




B 


*+8 


1503 


13 


84 




MZ 


BLANK, IMAGE+75 


1504 


13 


85 




sw 


DSASW2 


1505 


13 


86 




MLC 


•001SFREEA 


1506 


13 


87 




MCW 


INPUT+34,IMAGE+53 


1507 


13 


88 




BCE 


DSADC,INPLT+22,« 


1508 


13 


89 




BCE 


DSACC, INPUT+22,+ 


1509 


13 


90 




BCE 


DSADC,INPUT*22»- 


1510 


13 


91 




B 


FR2FIX 


1511 


13 


92 




MZ 


IMAGE-i-27, INPUT+21 


1512 


13 


93 


DSAX1 


MZ 


IMAGE+27,IMAGE+40 


1513 


13 


94 




MLC 


•03 , ,IMAGE+7 


1514 


13 


95 




MLC 


«03»,XL2 


1515 


13 


96 


CKAOP 


BCE 


DCWAST, INPUT+6, 


1516 


13 


97 




BWZ 


DCWAST, IMAGE+75, S 


1517 


13 


98 




BWZ 


*+5,lNPUT+6,2 


1518 


13 


99 




B 


DCWAST 


1519 


14 


00 




MLC 


INPUT+10, IMAGE+21 


1520 


14 


01 




B 


CVTFLA 


1521 


14 


02 


DCWACT 


MLC 


W5AREA,IM*G£+2l 


1522 


14 


03 




MLC 


W5AREA,IMAGE+61 


-» tr «* "■» 


* t 
j.** 


ft t. 




o 
o 


UI\H«V,I\ 


1524 


14 


05 


OCWAST 


A 


XL2,0RGCTR 


1525 


14 


06 


BMPCTR 


MCW 


•*»,IMAGE+17 


1526 


14 


07 


DSETAD 


A 


0RGCTR,IMAGE+61 


1527 


14 


08 


CKMACR 


BCE 


NUREC, IMAGE+75, P 


1528 


14 


09 




BCE 


NUREC, IMAGE+75, X 


1529 


14 


10 




8W 


DCWXT,DSASW2 


1530 


14 


11 




MLC 


INPUT+51,IMAGE+53 


1531 


14 


12 




MLC 




1532 


14 


13 




MLC 




1533 


14 


14 




MLC 


XL2,IMAGE+7 


1534 


14 


15 




C 


XL2, , 030» 


1535 


14 


16 




BH 


DCWXT 


1536 


14 


17 




MN 


«8 , ,INPUT+75 


1537 


14 


18 




BWZ 


*+8, IMAGE+75, B 


1538 


14 


19 




MZ 


IMAGE+75, INPUT+75 


1539 


14 


20 




MCW 


H0LDCXL3 


1540 


14 


21 




MCW 


INPUT+80,CUTPUT+8C+X3 


1541 


14 


22 




SW 


DCWSW2 



SFX CT LOCN INSTRUCTION TYPE CARD 



Q. OSA STATEMENT 

Q. DC, DCW STATEMENT 



1874 B Y90 175 J 
1882 V K71 022 2 





Z 


7 


1890 


M 


N52 


089 




CODE RECORD 


Z 


7 


1897 


D 


N44 


175 






Z 


7 


1904 


Y 


021 


127 






Z 


7 


1911 


M 


H59 


021 






Z 


8 


1918 


V 


Z30 


175 


K 




z 


4 


1926 


B 


Z37 








z 


7 


1930 


Y 


H59 


175 




SET DSA SWITCH 


1 


4 


1937 


t 


H91 








1 


7 


1941 


M 


N55 


M98 






I 


7 


1948 


M 


034 


153 






I 


8 


1955 


B 


L54 


022 


i 




1 


8 


1963 


B 


L54 


022 


+ 




z 


8 


1971 


8 


L54 


022 


- 


CONVERT FREE TO FIXED 


z 


4 


1979 


B 


952 








z 


7 


1983 


Y 


127 


021 






z 


7 


1990 


Y 


127 


140 




INSERT COUNT 


z 


7 


1997 


M 


N57 


107 






z 


7 


2004 


M 


N57 


094 




Q. ANY LABEL 


z 


8 


2011 


B 


-68 


006 




Q. LITERAL 


z 


8 


2019 


V 


-68 


175 


S 


Q. ACTUAL ADDRESS 


z 


8 


2027 


V 


-39 


006 


2 




z 


4 


2035 


B 


-68 






PROCESS ACTUAL 


z 


7 


2039 


M 


010 


121 




ADDRESS 


z 


4 


2046 


B 


W28 






ADDRESS TO FIXED 


z 


7 


2050 


M 


H76 


121 




FORM 


z 


7 


2057 


M 


H76 


161 










£.UVT 


B 








BUMP ORIGIN COUNTER 


I 


7 


2068 


A 


094 


H58 




SET TO DCW * 


1 


7 


2075 


M 


N58 


117 




ASSIGN ADDRESS 


I 


7 


2082 


A 


H58 


161 




Q. EQU STATEMENT 


I 


8 


2089 


B 


534 


175 


P 


Q. OS STATEMENT 


I 


8 


2097 


B 


534 


175 


X 


Q, DSA STATEMENT 


z 


8 


2105 


V 


J85 


H91 


1 


MOVE CONSTANT TO 


I 


7 


2113 


M 


051 


153 




FIXED FORM 


I 


1 


2120 


M 










z 


1 


2121 


M 








COUNT TO FIXED FORM 


z 


7 


2122 


M 


094 


107 




Q. COUNT GREATER THAN 


z 


7 


2129 


C 


094 


N61 




30 


z 


5 


2136 


B 


J85 


U 




WRITE FREE FORM RECORD 


z 


7 


2141 


D 


N62 


075 




ON TAPE 


z 


8 


2148 


V 


J63 


175 


B 




z 


7 


2156 


Y 


175 


075 






z 


7 


2163 


M 


M91 


099 






z 


7 


2170 


M 


080 


117 






z 


4 


2177 


, 


H92 







224 
224 



224 
225 
225 
225 
225 
225 
226 
226 
226 
226 
226 
227 
227 
227 
227 
227 
228 
228 
228 
228 
228 
229 
229 
229 
229 
229 

230 
230 
230 
230 
230 
231 
231 
231 
231 
231 
231 
231 
232 
232 
232 
232 
232 
233 













1401 AUTOCODER-PASS 4-LEFT 


SEQ 


PG 


LIN 


LnOdL 


OP 


OPERANDS 


1542 


14 


23 




B 


TPYET 


1543 


14 


24 


DCWXT 


CW 


DSASW2,DCWSW2 


1544 


14 


25 




BW 


*+5,LITSW2 


1545 


14 


26 




B 


NUREC 


1546 


14 


27 




BCE 


LITRTN,INPUT+21,• 


1547 


14 


28 




BCE 


LTGEN, INPUT+22, + 


1548 


14 


29 




BCE 


LTGEN, INPUT+22, - 


1549 


14 


30 




BCE 


LTGEN, INPUT+22, 1 


1550 


14 


31 




8 


LITRTN 


1551 


14 


32 


PDCWLF 


S 


XL2+2 


1552 


14 


33 


DCWALF 


B 


SCANAT 


1553 


14 


34 




B 


FNLOP 


1554 


14 


35 




BW 


ACNRT,DSASW2 


1555 


14 


36 




S 


+30,XL2+1 


1556 


14 


37 




B 


CKAOP 


1557 


14 


38 


ISDCW 


S 


+20,XL2+1 


1558 


14 


39 




BW 


NOZONE,DCWSW 


1559 


14 


40 




MLZS 


INPUT+21,INPUT+21+X2 


1560 


14 


41 


NGZONE 


CW 


OCWSW 


1561 


14 


42 




B 


CKAOP 


1562 


14 


43 


ARDEF 


sw 


INPUT+22 


1563 


14 


44 




ZA 


INPUT+24,W5AREA 


1564 


14 


45 




B 


CVRT5 


1565 


14 


46 




MLZS 


ABBIT,IMAGE+4 


1566 


14 


47 




MLNS 


W5AREA,XL2 


1567 


14 


48 




MLC 




1568 


14 


49 




C 


XL2, t 053 , 


1569 


14 


50 




BH 


CKAOP 


1570 


14 


51 




Ml 


BBIT,IMAGE+5 


1571 


14 


52 




B 


CKAOP 


1572 


14 


53 


DSAOC 


BCE 


PDCWLF, INPUT+22,' 


i •?■ "» -^ 

JLPf 3 


if 








. 1 rt UP t -"* < 1 


1574 


14 


55 




MCW 


XL3,W3AREA 


1575 


14 


56 




C 


XL3, , 006« 


1576 


14 


57 




BL 


D08IG 


1577 


14 


58 




BCE 


XALF1, INPUT+22," 


1578 


14 


59 




B 


XLIT1 


1579 


14 


60 


LTGEN 


B 


PUT 


1580 


14 


61 




MCW 


VSIMAGE + 75 


1581 


14 


62 




MCW 


LAREA+72,INPUT+72 


1582 


14 


63 




MCW 




1583 


14 


64 




MCW 




1584 


14 


65 




MCW 




1585 


14 


66 




MCW 


LAREA+74,LAREA+73 


1586 


14 


67 




B 


PROLBL 


1587 


14 


68 




S 


XL2 + 2 


1588 


14 


69 




S 




1589 


14 


70 




B 


OCWCD 


1590 


14 


71 


* 






1591 


14 


72 


♦ CALL 


IN DA 


ROUTINE 



MAIN 



N LINE -VERSION 3 






3741L 




PAGE 


35 




SFX 


CT 


%*.%*&%# vh 


INSTRUCTION TYPE 


CARD 




Z 


4 


2181 


& 


638 


233 


RESET SWITCHES 


I 


7 


2185 


) 


H91 H92 


233 




I 


8 


2192 


V 


K04 H90 1 


233 




I 


4 


2200 


B 


534 


233 




I 


8 


2204 


B 


P31 021 * 


233 


Q. ADCGN OF LITERAL 


I 


8 


2212 


B 


MOO 022 + 


234 




I 


8 


2220 


8 


MOO 022 - 


234 




I 


8 


2228 


B 


MOO 022 • 


234 




Z 


4 


2236 


B 


P31 


234 




Z 


4 


2240 


S 


096 


234 


SCAN FOR ENDING • SIGN 


z 


4 


2244 


B 


S92 


234 


CHECK LAST OPERAND 


z 


4 


2248 


B 


W05 


235 


Q. ADCON OF LITERAL 


z 


8 


2252 


V 


L62 H91 1 


235 




I 


7 


2260 


S 


N64 095 


235 




I 


4 


2267 


B 


-11 


235 




I 


7 


2271 


S 


N66 095 


235 


Q. CONSTANT ZONED 


1 


8 


2278 


V 


K93 H89 1 


235 


ZONE CONSTANT 


I 


7 


2286 


Y 


021 OKI 


236 




I 


4 


2293 


) 


H89 


236 




I 


4 


2297 


B 


-11 


236 


PROCESS AREA 


I 


4 


2301 


t 


022 


236 




I 


7 


2305 


+ 


024 H76 


236 




I 


4 


2312 


B 


V78 


236 


CODE RECORD 


I 


7 


2316 


Y 


189 104 


236 




z 


7 


2323 


D 


H76 094 


237 




z 


1 


2330 


M 




237 


Q. ILLEGAL LENGTH 


z 


7 


2331 


C 


094 N69 


237 




z 


5 


2338 


B 


-11 U 


237 


MARK BAD STATEMENT 


z 


7 


2343 


Y 


188 105 


237 




z 


4 


2350 


B 


-11 


237 


Q. ADCON OF ALPHA LIT 


z 


8 


2354 


B 


K40 022 » 


237 




1 
L. 


-» 
* 




S 








1 


7 


2369 


M 


099 H74 


238 


Q. LARGE LITERAL 


I 


7 


2376 


C 


099 N72 


238 




1 


5 


2383 


B 


A57 T 


238 


Q. ALPHA LITERAL 


I 


8 


2388 


B 


+93 022 • 


238 




I 


4 


2396 


B 


B82 


238 


PUT ADCON 


I 


4 


2400 


B 


610 


239 


SET UP LITERAL 


1 


7 


2404 


M 


N73 175 


239 


TO BE PROCESSED 


I 


7 


2411 


M 


H31 072 


239 


NOTE. ADDRESS CONSTANT 


z 


1 


2418 


M 




239 


LOGIC MAKES IT 


z 


1 


2419 


M 




239 


RECURSIVE 


z 


1 


2420 


M 




239 




z 


7 


2421 


M 


H33 H32 


239 




z 


4 


2428 


B 


V38 


240 




z 


4 


2432 


S 


096 


240 




z 


1 


2436 


S 




240 




z 


4 


2437 


B 


Yll 


240 



1401 AUTOCQCER-PASS 4-LEFT MAIN LINE 



•VERSION 3 



3741L 



PAGE 



36 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


1592 


14 73 


* 






1593 


14 74 


OARTN 


RTy 


SYSTAPjDOPRCG 


1594 


14 75 




NOP 





1595 


14 76 




BER 


TPERR 


1596 


14 77 




B 


DASTMT 


1597 


14 78 


FINOA 


RTN 


SYSTAP,OOPRGG 


1598 


14 79 




NOP 





1599 


14 80 




BER 


TPERR 


1600 


14 81 




B 


CKCGM 


1601 


14 82 




LTQRG 
DCW 


♦ 

•000« 
+ 80 




1243 


HQLDC 




=03 

•RSWZ' 




1270 


FREEA 




=03 

* 191 * 

• I9G» 
*I99' 




1279 


EQUAOD 




=04 

+ 1 
1541 




1298 


SCANSW 




=01 

•04' 

«+X» 




1315 






+K4K-3 




1329 






+SCANB 

«00« 

+007 




1358 


FIXSW 




=01 

- UUJ>' 

t —_ _ t 

'510' 

+ 10 

+2 
111 




1400 


LITSW 




=01 
+ 96 
» + « 
•Oil' 
•001 1 
•03« 
• *« 

•030' 

•8* 

+ 30 

+20 

•053< 

•006 1 



SFX CT LOCN INSTRUCTION TYPE CARD 



CALL DA ROUTINE 



GO TO DA ROUTINE 



z 


8 


2441 


L 


CU1 N75 


R 


240 


z 


4 


2449 


N 


000 




240 


z 


5 


2453 


B 


221 L 




240 


z 


4 


2458 


& 


N75 




241 


z 


8 


2462 


L 


(Ul N75 


R 


241 


z 


4 


2470 


N 


000 




241 


z 


5 


2474 


B 


221 L 




241 


z 


4 


2479 


B 


706 




241 


z 






2483 






z 


1 


2483 






LIT 


241 


z 


3 


2486 






LIT 


241 


z 


2 


2488 






LIT 


242 


z 


3 


2491 






AREA 


242 


z 


4 


2495 






LIT 


242 


z 


3 


2498 






AREA 


242 


z 


3 


2501 






LIT 


242 


I 


3 


2504 






LIT 


242 


I 


3 


2507 






LIT 


242 


I 


4 


2511 






AREA 


243 


1 


1 


2512 






LIT 


243 


I 


2 


2514 






LIT 


243 


I 


1 


2515 






AREA 


243 


1 


2 


2517 






LIT 


243 


1 


2 


2519 






LIT 


243 


I 


3 


2522 


197 


ADCON 


243 


I 


3 


2525 


♦23 


ADCON 


244 


1 


2 


2527 






LIT 


244 


I 


3 


2530 






LIT 


244 


L 


1 


2531 






LIT 


244 


I 


1 


2532 






AREA 


244 




-* 


2535 










1 


3 


2538 






LIT 


244 


I 


3 


2541 






LIT 


245 


I 


2 


2543 






LIT 


245 


I 


1 


2544 






LIT 


245 


I 


1 


2545 






LIT 


245 


1 


1 


2546 






AREA 


245 


I 


2 


2548 






LIT 


245 


z 


1 


2549 






LIT 


245 


z 


3 


2552 






LIT 


246 


z 


3 


2555 






LIT 


246 


z 


2 


2557 






LIT 


246 


z 


1 


2558 






LIT 


246 


z 


3 


2561 






LIT 


246 


z 


1 


2562 






LIT 


246 


z 


2 


2564 






LIT 


246 


z 


2 


2566 






LIT 


247 


z 


3 


2569 






LIT 


247 


z 


3 


2572 






LIT 


247 



1401 AUTOCQCER-PASS 4-LEFT MAIN LINE -VERSION 3 3741L PAGE 37 

SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 

•/• 2 1 2573 LIT 247 

1602 14 83 GRPMK5 DCW * • SYSTEM GROUP MARK Z 1 2574 247 

1603 14 84 EX 002ER0 Z B 000 248 



1401 AUTOCODER-PASS 4 PROCESS J08/CTL 



-VERSION 3 



3742L 



PAGE 



38 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1604 


14 


85 




JOB 


1401 AUTOCOCER-PASS 


1605 


14 


86 


* 






1606 


14 


87 


•PROCESS CONTROL CARD 


1607 


14 


88 


* 






1608 


14 


89 


OOPROG 


ORG 


* 


1609 


14 


90 


START 


CS 


INPUT+84 


1610 


14 


91 




CS 


3999 


1611 


14 


92 




sw 


INPUT+21,INPUT+81 


161Z 


14 


93 




sw 


IMAGE-H* IMAGE46 


1613 


14 


94 




SW 


IMAGE+8,IMAGE+14 


1614 


14 


95 




sw 


IMAGE+17,IMAGE+28 


1615 


14 


96 




sw 


IMAGE+39, IMAGE+57 


1616 


14 


97 




SW 


IMAGE+62,IMAGE+67 


1617 


14 


98 




SW 


IMAGE+23 


1618 


14 


99 




SW 


GRPMKltGRPMKS 


1619 


15 


00 




sw 


GRPMK3,GRPMK4 


1620 


15 


01 




cw 


INITSW 


1621 


15 


02 




RWD 


INTAP 


1622 


15 


03 




RWD 


OUTAP 


1623 


15 


04 




RWD 


LITAPE 


1624 


15 


05 




MLC 


•OOOSHOLCC 


1625 


15 


06 




B 


GET 


1626 


15 


07 




MCW 


INPUT+8G*IMAGE+21 


1627 


15 


08 




MCW 


»I»,IMAGE+75 


1628 


15 


09 




SW 


3998 


1629 


15 


10 




B 


GET 


1630 


15 


11 




BCE 


NOCTL, INPLT+6,* 


1631 


15 


12 




C 


INPUT+18,«CTL» 


1632 


15 


13 




BU 


NOCTL 


1633 


15 


14 




MLNS 


INPUT+21,CTL3+7 


1634 


15 


15 


CTL3 


BCE 


CTL2,CKPRC» 


1635 


15 


1 A 

4» -W 




arc 




1636 


15 


17 




BCE 




1637 


15 


18 




BCE 




1638 


15 


19 




B 


NOCTL 


1639 


15 


20 


CTL2 


MLC 


INPUT+21,PRCCGR 


1640 


15 


21 




2A 


INPUT+21,XL1 


1641 


15 


22 




S 


+30,XL1+1 


1642 


15 


23 




A 


XL1 


1643 


15 


24 




A 


XL1 


1644 


15 


25 




MLC 


FCTBL+X1, FACTOR 


1645 


15 


26 




MLC 


•OSFACTOR-3 


1646 


15 


27 




MLC 


FCTBL-3+Xl,CKTAP+7 


1647 


15 


28 




BCE 


IS16K,INPUT+21,6 


1648 


15 


29 




BCE 


IS16K, INPUT+21,5 


1649 


15 


30 




BCE 


IS8K, INPUT+21,4 


1650 


15 


31 




MLC 


»3«,PR0C0R 


1651 


15 


32 


* 






1652 


15 


33 


* INITIALIZE 


OUTPUT AREA AND SET 


1653 


15 


34 


* 







SFX CT LOCN INSTRUCTION TYPE CARD 



4 PROCESS JOB/CTL 



-VERSION 3 





Z 




2575 


2575 








Z 


4 


2575 


/ 


084 




251 




Z 


4 


2579 


/ 


199 




251 


SET WORD MARKS IN 


z 


7 


2583 


t 


021 


081 


251 


FIXED FORM IMAGE AREA 


z 


7 


2590 


t 


101 


106 


251 




z 


7 


2597 


t 


108 


114 


251 




z 


7 


2604 


t 


117 


128 


251 




z 


7 


2611 


t 


139 


157 


252 




z 


7 


2618 


t 


162 


167 


252 




z 


4 


2625 


t 


123 




252 


INITIALIZE GROUP MARKS 


z 


7 


2629 


t 


085 


H99 


252 




z 


7 


2636 


f 


H44 


185 


252 




z 


4 


2643 


) 


H87 




252 




z 


5 


2647 


U 


1U4 


R 


253 




z 


5 


2652 


U 


(U5 


R 


253 




z 


5 


2657 


u 


CU6 


R 


253 




z 


7 


2662 


M 


R16 


M91 


253 


GET JOB CARD 


z 


4 


2669 


B 


538 




253 


PROCESS JOB CARD 


z 


7 


2673 


M 


080 


121 


253 


IDENTIFICATION 


z 


7 


2680 


M 


R17 


175 


254 




z 


4 


2687 


t 


198 




254 


GET SECOND RECORD 


z 


4 


2691 


B 


538 




254 


Q. COMMENTS CARD 


z 


8 


2695 


B 


Q71 


006 * 


254 


Q. CONTROL CARD 


z 


7 


2703 


C 


018 


R20 


254 




z 


5 


2710 


8 


Q71 


/ 


254 


CHECK PROCESSOR SIZE 


z 


7 


2715 





021 


P29 


255 


FOR VALID CODE 


z 


8 


2722 


B 


P37 


R13 


255 




7 

4. 






O 






C30 




1 


1 


2731 


B 






255 




I 


1 


2732 


B 






255 




I 


4 


2733 


B 


Q71 




255 


INITIALIZE AREAS 


I 


7 


2737 


M 


021 


194 


255 




I 


7 


2744 


+ 


021 


089 


256 


PROCESSOR MACHINE 


z 


7 


2751 


S 


R22 


090 


256 


SIZE 


z 


4 


2758 


A 


089 




256 




z 


4 


2762 


A 


089 




256 




z 


7 


2766 


M 


QZ7 


H48 


256 




z 


7 


2773 


M 


R23 


H45 


256 




z 


7 


2780 


M 


QZ4 


652 


257 


Q. 16K PROCESSOR 


z 


8 


2787 


B 


Q52 


021 6 


257 


Q. 16K PROCESSOR 


z 


8 


2795 


B 


Q52 


021 5 


257 


Q. 8K PROCESSOR 


z 


8 


2803 


B 


Q33 


021 4 


257 




z 


7 


2811 


M 


R24 


194 


257 



UP BLOCKING SIZE 



1401 AUTOCODER-PASS 4 PROCESS JOB/CTL 



-VERSION 3 



3742L 



PAGE 



39 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1654 


15 


35 


IS4K 


LCA 


GRPMK8,3998 


1655 


15 


36 




B 


PUT 


1656 


15 


37 




B 


LDOPTB 


165? 


15 


38 


IS8K 


LCA 


GRPMK8 f 4318 


1658 


15 


39 




MCW 


»{« 


1659 


15 


40 




MCW 


4317 


1660 


15 


41 




8 


CWI98 


1661 


15 


42 


IS16K 


LCA 


GRPMK8,4718 


1662 


15 


43 




MCW 


•<• 


1663 


15 


44 




MCW 


4717 


1664 


15 


45 




B 


CWI98 


1665 


15 


46 


NOCTL 


MLC 


FCTBL, FACTOR 


1666 


15 


47 




MLC 


•3SPR0C0R 


1667 


15 


48 




BSP 


INTAP 


1668 


15 


49 




B 


IS4K 


1669 


15 


50 


FCTBL 


DCW 


0015 


1670 


15 


51 




DCW 


3051 


1671 


15 


52 




DCW 


7087 


1672 


15 


53 




DCW 


7127 


1673 


15 


54 


CKPRO 


DCW 


3456 


1674 


15 


55 




LTORG * 










DCW 


•000' 
•CTL» 






















+ 30 












«0« 












#31 












>(• 


1675 


15 


56 


* 






1676 


15 


57 


*M A I 


N 


LINE CO 


1677 


15 


58 


* 






1678 


15 


59 


♦LITERAL HOLD AREA 


1679 


15 


60 


# 






1680 


15 


61 




ORG 


SAVE 


1681 


15 


62 


LAREA 


EQU 


* 


1682 


15 


63 




DCW 


+00000 


1683 


15 


64 




DCW 


= 10 


1684 


15 


65 




DCW 


•DCW • 


1685 


15 


66 




DCW 


= 1 


1686 


15 


67 




OS 


53 


1687 


15 


68 




DCW 


•/• 


1688 


15 


69 




DS 


9 


1689 


15 


70 


GRPPK3 


DC 


< 1 


1690 


15 


71 


HLDLIT 


EQU 


LAREA+1 


1691 


15 


72 


« 






1692 


15 


73 


•CONSTANTS 


AND WORK AREAS 


1693 


15 


74 


• 






1694 


15 


75 


FACTOR 


DCW 


•OOOO 1 


1695 


15 


76 


BIGCTR 


DCW 


•00000' 


1696 


15 


77 


ORGCTR 


DCW 


• 00332' 



$FX CT LOCN INSTRUCTION TYPE CARD 



SET GROUP MARK AT END 
OF OUTPUT AREA 



PROCESS WHEN NO 
CONTROL CARD 



AND 



2 7 2818 

Z 4 2825 

Z 4 2829 

Z 7 2833 

Z 4 2840 

Z 4 2844 

Z 4 2848 

Z 7 2852 

Z 4 2859 

Z 4 2863 

Z 4 2867 

Z 7 2871 

Z 7 2878 

Z 5 2885 

Z 4 2890 

Z 4 2897 

Z 4 2901 

Z 4 2905 

Z 4 2909 

Z 4 2913 
Z 

Z 3 2916 

Z 1 2917 

Z 3 2920 

Z 2 2922 

Z 1 2923 

Z 1 2924 

Z 1 2925 



WORK AREAS 



z 






z 




3759 


z 


5 


3764 


z 


10 


3774 


z 


5 


3779 


z 


1 


3780 


z 




3833 


z 


1 


3834 


z 




3843 


z 


1 


3844 


z 




3760 



L H99 198 
B 610 
B 489 
L H99 31Y 
M R25 
H 31X 
B 469 
L H99 71Y 
M R25 
« 71X 
B 469 
M Q97 H48 
M R24 194 
U (U4 B 
B Q18 



2914 



3760 





258 




258 




258 




258 




258 




258 




258 




259 




259 




259 




259 




259 




259 




259 




260 




260 




260 




260 




260 




260 


LIT 


260 


LIT 


261 


LIT 


261 


LIT 


261 


LIT 


261 


LIT 


261 


LIT 


261 



262 
262 
262 
262 

263 

264 



LABEL CONVERSION FACTR Z 4 3848 
BIG LITERAL LABEL CNTR Z 5 3853 
ORIGIN COUNTER Z 5 3858 



264 
264 
264 



1401 AUTQCGCER-PASS 4 PROCESS JOB/CTL 



-VERSION 3 



3742L 



PAGE 40 



SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


1697 


15 


78 


8LANK4 


DCW 


=4 


1698 


15 


79 


B2CNTR 


DCW 


= 5 


1699 


15 


80 


H0LC4 


DCW 


=4 


1700 


15 


81 


W6AREA 


DCW 


=6 


1701 


15 


82 


H0LD7 


DCW 


=7 


1702 


15 


83 


H0LD1 


DCW 


+0 


1703 


15 


84 


SFXHLD 


DCW 





1704 


15 


85 


INITSW 


DCW 





1705 


15 


86 


MARKSW 


DC 





1706 


15 


87 


DCWSW 


DC 





1707 


15 


88 


LITSW2 


DC 





1708 


15 


89 


DSASW2 


DC 





1709 


15 


90 


DCWSW2 


DC 





1710 


15 


91 


GRPMK8 


EQU 


3899 


1711 


15 


92 


3899 


DCW 


i t 


1712 


15 


93 




EX 


D02ER0 



BLANKS 


Z 


4 


3862 


WORK AREA 


I 


5 


3867 


WORK AREA 


Z 


4 


3871 


WORK AREA 


I 


6 


3877 


USED FOR LABEL 


2 


7 


3884 


CONVERSION ONLY 


Z 


1 


3885 


SUFFIX CHARACTER 


Z 




3886 


DA SWITCH 


I 




3887 


DA SWITCH 


I 




3888 


DCW SWITCH 


Z 




3889 


LITERAL SWITCH 


Z 




3890 


DSA SWITCH 


I 




3891 


DCW SWITCH 


Z 




3892 




z 




3899 


SYSTEM GROUP MARK 


z 

2 


1 


3899 



SFX CT LOCN INSTRUCTION TYPE CARD 



264 
265 
265 
265 
265 
265 
265 
265 
266 
266 
266 
266 
266 



8 000 



267 

268 













1401 AUTOCODER-PASS 


S£Q 


PG 


lin 


LABEL 


OP 


OPERANDS 


1713 


15 


94 




JOB 


1401 AUTOCODER-PASS 


1714 


15 


95 


* 






1715 


15 


96 


♦PROCESS INSTRUCTION STATEMENTS 


1716 


15 


97 


* 






1717 


15 


98 




ORG 


DOPROG 


1718 


15 


99 


INSTR 


MCW 


EQUADD, IMAGE+67 


1719 


16 


00 




CW 


LENSW=1 


1720 


16 


01 




MLC 


»01»,IMAGE+7 


1721 


16 


02 




BW 


*+5, EQUADD 


1722 


16 


03 




8 


AUGMNT 


1723 


16 


04 


DGCNT 


BCE 


D0NE.INPUT+21+X2, 


1724 


16 


05 




BCE 


XISALF,INPUT+21+X2,« 


1725 


16 


06 




LCA 


BLANK2+1, INPUT+20+X2 


1726 


16 


07 




B 


COMSCN 


1727 


16 


08 




MLC 


XL3,W3AREA 


1728 


16 


09 




MLC 


FREEA.XL3 


1729 


16 


10 




BCE 


XISLIT,INPUT+21+X3,+ 


1730 


16 


11 




BCE 


XISLIT,INPUT+21+X3,- 


1731 


16 


12 




B 


FR2FIX 


1732 


16 


13 




BCE 


SMLTYP,lMAGE+23+Xl»= 


1733 


16 


14 


CKDONE 


A 


+3,IMAGE+7 


1734 


16 


15 




BW 


FREMQD,LENSW 


1735 


16 


16 




C 


XLI.'OIO 1 


1736 


16 


17 




BL 


DONE 


1737 


16 


18 




MLC 


•OllSXLl 


1738 


16 


19 




BW 


*+5,SCANSW 


1739 


16 


20 




B 


ELMBLK 


1740 


16 


21 


INTXL1 


MCW 


XL2,FREEA 


1741 


16 


22 




B 


DOCNT 


1742 


16 


23 


DONE 


BW 


CKMGD1, SCANSW 


1743 


16 


24 


FREMGD 


MLC 


lNPUT+21+X2,IMAGE+39 


1744 


16 


25 




BCE 


*+5 , 1MAGE+39, 


1745 


16 


26 




B 


CI 


1746 


16 


27 




BCE 


Cl,INPUT+22+X2, 


1747 


16 


28 




MCW 


lNPUT+22+X2tIMAGE+39 


1748 


16 


29 




A 


+ 1 1 XL2 


1749 


16 


30 


CI 


C 


INPUT+23+X2,BLANK2 


1750 


16 


31 




BE 


ISMOD 


1751 


16 


32 




MZ 


ABIT,IMAGE+5 


1752 


16 


33 




B 


ISMOD 


1753 


16 


34 


CKM0D1 


BCE 


DOIADDtIMAGE+39, 


1754 


16 


35 


ISMGC 


A 


+l,IMAGE+7 


1755 


16 


36 




MLC 


IMAGE«-7,XL2 


1756 


16 


37 




MLC 


IMAGE+39, IMAGE+66+X2 


1757 


16 


38 


DOIADD 


MLC 


0RGCTR,IMAGE+61 


1758 


16 


39 




A 


+1,IMAG£+61 


1759 


16 


40 




A 


IMAGE+7.0RGCTR 


1760 


16 


41 




MLC 


BLANK, IMAGE+75 


1761 


16 


42 




B 


NUREC 


1762 


16 


43 


LOOPBL 


A 


+1,XL2 



4 MAIN LINE OVERLAY -VERSION 3 



3743L 



PAGE 



41 



SFX CT LOCN INSTRUCTION TYPE CARD 



MAIN LINE OVERLAY -VERSION 3 



GET ACTUAL OP 
RESET SWITCH 
SET COUNT TO ONE 
Q. REGULAR OP CODE 

Q. IS THERE OPERAND 
Q. ALPHAMERIC LITERAL 
WIPE OUT PREV OPERAND 
SCAN FOR COMMA, BLANK 



Q. NUMERIC LITERAL OR 

ADDRESS CONSTANT 
CONVERT FREE TO FIXED 
Q. AREA DEF LITERAL 
ADD THREE TO COUNT 
Q. FIVE CHAR INST 
Q. 8 OPERAND JUST 
PROCESSED 

Q. TWO BLABKS AFTER OP 
ELIMINATE BLANKS 



Q. D MODIFIER IN 
OPERAND FIELD 

r\ r\ unntr trn /-» t~ i- c r- tp 

W* u nuuirici\ urroc i 

ONE POSITION 
IF BOTH POSITIONS 

BLANK ASSUME FIRST 

BLANK SIGNIFICANT 
Q. D MODIFIER 

FOLLOWED BY TWO 

BLANKS 

Q. D CHARACTER 
PROCESS D CHARACTER 



ASSIGN ADDRESS AND 
BUMP UP COUNTER 

CODE RECORD 

WEED OUT BLANKS 



z 






2575 






z 


7 


2575 


M 


Nil 


167 


271 


z 


4 


2582 


) 


G34 




271 


z 


7 


2586 


M 


G36 


107 


271 


z 


8 


2593 


V 


005 


Nil 1 


271 


z 


4 


2601 


B 


R06 




271 


z 


8 


2605 


B 


P31 


OKI 


271 


z 


8 


2613 


B 


+77 


OKI ' 


272 


z 


7 


2621 


L 


H61 


OKO 


272 


z 


4 


2628 


B 


860 




272 


z 


7 


2632 


M 


099 


H74 


272 


z 


7 


2639 


M 


M98 


099 


272 


z 


8 


2646 


B 


851 


OBI + 


273 


z 


8 


2654 


B 


B51 


081 - 


273 


z 


4 


2662 


B 


952 




273 


z 


8 


2666 


B 


+40 


1S3 = 


273 


z 


7 


2674 


A 


G37 


107 


273 


z 


8 


2681 


V 


P39 


G34 1 


274 


z 


7 


2689 


C 


089 


G40 


274 


z 


5 


2696 


B 


P31 


T 


274 


z 


7 


2701 


M 


G43 


089 


274 


z 


8 


2708 


V 


P20 


N15 1 


274 


z 


4 


2716 


B 


Q83 




274 


z 


7 


2720 


M 


094 


M98 


275 


z 


4 


2727 


B 


005 




275 


z 


8 


2731 


V 


Q03 


N15 1 


275 


z 


7 


2739 


M 


OKI 


139 


275 




n 
O 




o 




X J? 


275 


I 


4 


2754 


B 


P80 




275 


I 


8 


2758 


8 


P80 


0K2 


276 


z 


7 


2766 


M 


0K2 


139 


276 


z 


7 


2773 


A 


G44 


094 


276 


z 


7 


2780 


C 


0K3 


H60 


276 


z 


5 


2787 


B 


Qll 


S 


276 


z 


7 


2792 


Y 


187 


105 


277 


z 


4 


2799 


B 


Qll 




277 


I 


8 


2803 


B 


Q32 


139 


277 


I 


7 


2811 


A 


G44 


107 


277 


z 


7 


2318 


M 


107 


094 


277 


z 


7 


2825 


M 


139 


106 


278 


z 


7 


2832 


M 


H58 


161 


278 


z 


7 


2839 


A 


G44 


161 


278 


z 


7 


2846 


A 


107 


H58 


278 


z 


7 


2853 


M 


H59 


175 


278 


z 


4 


2860 


B 


534 




278 


1 


7 


2864 


A 


G44 


094 


279 



1401 AUTOCODER-PASS 4 MAIN LINE OVERLAY -VERSION 3 



3743L 



PAGE 42 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1763 


16 


44 




c 


XL2,'51' 


1764 


16 


45 




BL 


ERRBLK 


1765 


16 


46 


ELMBLK 


8CE 


L0GP8L,INPUT+21+X2, 


1766 


16 


47 




8 


INTXL1 


1767 


16 


48 


ERRBLK 


MZ 


ABIT,IMAGE+5 


1768 


16 


49 




B 


CKDONE 


1769 


16 


50 


♦ 






1770 


16 


51 


♦PROCESS UNIQUE MNEMONICS 


1771 


16 


52 


« 






1772 


16 


53 


AUGMNT 


MCW 


EQUADD-l,IMAGE+39 


1773 


16 


54 




BCE 


ISFIVEtEQUACD-1, 


1774 


16 


55 


CKREG 


BW 


D0CNT,EQUADC-1 


1775 


16 


56 




BW 


TAPAUG, EQUADD-2 


1776 


16 


57 




MCW 


EQUADD-2, IMAGE+70 


1777 


16 


58 




MLC 


•{' 


1778 


16 


59 




B 


OPDONE 


1779 


16 


60 


TAPAUG 


C 


INPUT+21, »0 f 


1780 


16 


61 




BH 


DOCNT 


1781 


16 


62 




BCE 


MSCSW»INPUT+22*» 


1782 


16 


63 




C 


INPUT+23,BLANK2 


1783 


16 


64 




BE 


GETPOP 


1784 


16 


65 




MCW 


*===•, IMAGE+70 


1785 


16 


66 




B 


OPDONE 


1786 


16 


665 


MSCSW 


cw 


SCANSW 


1787 


16 


67 


GETPOP 


MN 


INPUT+21,IM*GE+70 


1788 


16 


68 




MCW 


EQUADD-2 


1789 


16 


69 




MLC 


•(• 


1790 


16 


70 




MLC 


•0G2SXL2 


1791 


16 


72 


CPCONE 


MLZS 


ABBIT.IMAGE+1 


1792 


16 


73 




B 


CKDONE 


1793 


16 


74 


ISFIVE 


SW 


LENSW 


1794 


16 


75 




B 


CKREG 


1795 


16 


76 


* 






1796 


16 


77 


•PROCESS AREA DEFINITION LITERAL 


1797 


16 


78 


* 






1798 


16 


79 


SMLTYP 


SW 


IMAGE+24+X1 


1799 


16 


80 




MLC 


IMAG£+26+Xl,LAREA+24 


1800 


16 


81 




MLC 


t — « 


1801 


16 


82 




CW 


IMAGE+24+X1 


1802 


16 


83 




MCW 


BLANK4,IMAGE+26+Xl 


1803 


16 


84 




MCW 


INPUT+84,LAREA+4 


1804 


16 


85 




B 


WRTLIT 


1805 


16 


86 


* 






1806 


16 


87 


♦PROCESS ALPHAMERIC LITERALS 


1807 


16 


88 


• 






1808 


16 


89 


XISALF 


B 


SCANAT 


1809 


16 


90 




C 


XL3,«07» 


1810 


16 


91 




BL 


DOBIG 


1811 


16 


92 


XALF1 


A 


XL3,XL1 


1812 


16 


93 




MCW 


INPUT+19+X2, IMAGE+15+X1 



BETWEEN OPERANDS 



FX 


CT 


LOCN 


INSTRUCTI 


Z 


7 


2871 


C 094 G46 


Z 


5 


2878 


B Q95 T 


Z 


8 


2883 


B Q64 OKI 


Z 


4 


2891 


8 P20 


Z 


7 


2895 


Y 187 105 


Z 


4 


2902 


B 074 



D MOD TO IMAGE AREA 

Q. BIN TYPE 

Q. TYPICAL UNIQUE MNEM 

Q. TAPE TYPE 

ERGO RAMAC TYPE 



PROCESS TAPE TYPE OF 

UNIQUE MNEMONICS 
CHECK FOR PROPERLY 
CODED A OPERAND 



MARK A OPERAND DONE 



SET SWITCH FOR FIVE 



MOVE LENGTH TO 
LITERAL HOLD AREA 

REMOVE LENGTH FROM 
CHAR ADJ PORTION 
OF OPERAND AND SAVE 
ALTER NUMBER 



SCAN FOR • SIGN 
Q. BIG LITERAL 



GENERATE UNIQUE LABEL 



CARD 

279 
279 
279 
279 
279 
280 



z 


7 


2906 


M 


N10 


139 


280 


z 


8 


2913 


B 


+ 32 


N10 


280 


z 


8 


2921 


V 


005 


N10 1 


280 


z 


8 


2929 


V 


R52 


N09 1 


280 


z 


7 


2937 


M 


N09 


170 


281 


z 


4 


2944 


M 


G47 




281 


z 


4 


2948 


8 


+21 




281 


z 


7 


2952 


C 


021 


G48 


281 


z 


5 


2959 


B 


005 


U 


281 


z 


8 


2964 


8 


R95 


022 , 


281 


z 


7 


2972 


C 


023 


H60 


282 


z 


5 


2979 


B 


R99 


S 


282 


z 


7 


2984 


M 


G51 


170 


282 


z 


4 


2991 


B 


+21 




282 


z 


4 


2995 


) 


N15 




282 


z 


7 


2999 


D 


021 


170 


282 


z 


4 


3006 


M 


N09 




282 


z 


4 


3010 


M 


G47 




283 


z 


7 


3014 


M 


G54 


094 


283 


z 


7 


3021 


Y 


189 


101 


283 


z 


4 


3028 


B 


074 




283 


z 


4 


3032 


t 


G34 




283 


■J 

4. 




JUJO 


o 
u 


R21 




283 



z 


4 


3040 


♦ 1S4 


283 


Z 


7 


3044 


M 1S6 G83 


284 


Z 


4 


3051 


M G55 


284 


Z 


4 


3055 


) 1S4 


284 


Z 


7 


3059 


M H62 1S6 


284 


z 


7 


3066 


M 084 G63 


284 


z 


4 


3073 


B A89 


284 



Z 


4 


3077 


B S92 


284 


Z 


7 


3081 


C 099 G57 


285 


Z 


5 


3088 


B A57 T 


285 


z 


7 


3093 


A 099 089 


285 


z 


7 


3100 


M 0J9 1/5 


285 



1401 AUTOCOCER-PASS 4 MAIN LINE OVERLAY -VERSION 3 
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PAGE 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1813 


16 


94 




BCE 


GM1,FREE+18+X2, 


1814 


16 


95 




BCE 




1815 


16 


96 




BCE 




1816 


16 


97 




BCE 




1817 


16 


98 


ADO 


S 


XL3+1,XL1+1 


1818 


16 


99 




MZ 


EX0VFL-1»IMAGE+17+X1 


1819 


17 


00 


SETEX 


MCW 


£XNUM8~l,IMAGE+22+Xl 


1820 


17 


01 




B 


PROLIT 


1821 


17 


02 


GM1 


MZ 


BLANK4,IMAGE+14+X1 


1822 


17 


03 




MZ 




1823 


17 


04 




MZ 




1824 


17 


05 




MZ 




1825 


17 


06 




B 


ADD 


1826 


17 


07 


♦ 






1827 


17 


08 


•PROCESS BIG 


LITERALS 


1828 


17 


09 


* 






1829 


17 


10 


DOBIG 


MLC 


8IGCTRtIMAGE+22+Xl 


1830 


17 


11 




MLC 


«$» 


1831 


17 


12 




A 


+1,8IGCTR 


1832 


17 


13 




MCW 


INPUT+84,LAREA+4 


1833 


17 


14 


» 






1834 


17 


15 


♦PLACE 


LITERALS IN HOLD AREA AND WRI 


1835 


17 


16 


* 






1836 


17 


17 


PROLIT 


MLC 


INPUT+19+X2,LAREA+19+X3 


1837 


17 


18 


WRTLIT 


MLC 


IMAGE+22+Xl,LAREA+ll 


1838 


17 


19 




BW 


DSAX1,LITSW2 


1839 


17 


20 




WT 


LITAPE,HLDLIT 


1840 


17 


21 




NOP 





1841 


17 


22 




BER 


TPERR 


1842 


17 


23 




MCW 


BLANK4.LAREA+4 


1843 


17 


24 




MLC 


LAREA+74,LAREA+73 


1844 


17 


25 




cw 


LITSW 


1845 


17 


26 




BW 


DSAX1.DSASW2 


1846 


17 


27 




B 


CKDONE 


1847 


17 


28 


* 






1848 


17 


29 


♦PROCESS NUMERIC LITERALS 


1849 


17 


30 


* 






1850 


17 


31 


XISLIT 


C 


INPUT+22+X3, , l 


1851 


17 


32 




MLC 


W3AREA,XL3 


1852 


17 


33 




BH 


DOBIG 


1853 


17 


34 




C 


XL3,»07« 


1854 


17 


35 




BL 


DOBIG 


1855 


17 


36 


XLIT1 


A 


XL1,XL3 


1856 


17 


37 




MLC 


INPUT+19+X2,IMAGE+14+X3 


1857 


17 


38 




MZ 


EX0VFL-1,IMAGE+21+X1 


1858 


17 


39 




MLC 


FREEA,XL3 


1859 


17 


40 




MLZS 


INPUT+21+X3, IMAGE+18+X1 


1860 


17 


41 




MLC 


W3AREA f XL3 


1861 


17 


42 




B 


SETEX 


1862 


17 


43 


* 







SFX CT LOCN INSTRUCTION TYPE CARD 



AND STRIP ZONING 
OFF GROUP MARKS IN 
LITERAL TO ELIMINATE 
CONFLICT 

WITH NOISE RECORD 
ROUTINE 
GIVE LITERAL SECTION 
CODE 



GENERATE BIG LITERAL 
LABEL 

SAVE ALTER NUMBER 

OUT ON LITERAL TAPE 

LITERAL TO HOLD AREA 
LITERAL LABEL TO AREA 

WRITE OUT LITERAL 
CLEAR HOLD AREA 



Q. RECURSIVE DCW 
LEAST ONE LIT EXISTS 



Q. ADDRESS CONSTANT 



Q. BIG LITERAL 

PROCESS SMALL NUMERIC 

LITERALS 
GENERATE UNIQUE LABEL 

FOR LITERAL 



I 


8 


3107 


B 


A43 0J8 


285 


z 


1 


3115 


B 




285 


z 


1 


3116 


B 




285 


z 


1 


3117 


8 




286 


z 


7 


3118 


S 


100 090 


286 


z 


7 


3125 


Y 


190 1/7 


286 


z 


7 


3132 


M 


192 1S2 


236 


z 


4 


3139 


B 


A82 


286 


z 


7 


3143 


Y 


H62 1/4 


286 


z 


1 


3150 


Y 




286 


z 


1 


3151 


Y 




287 


z 


1 


3152 


Y 




287 


z 


4 


3153 


B 


A18 


287 



Z 


7 


3157 


M H53 1S2 


287 


Z 


4 


3164 


M G58 


287 


Z 


7 


3168 


A G44 H53 


287 


Z 


7 


3175 


M 084 G63 


287 



Z 


7 


3182 


M 


0J9 


GG8 




288 


Z 


7 


3189 


M 


1S2 


G70 




288 


z 


8 


3196 


V 


Z90 


H90 


1 


288 


z 


8 


3204 


M 


<U6 


G60 


W 


288 


z 


4 


3212 


N 


000 






288 


z 


5 


3216 


B 


221 


L 




288 


z 


7 


3221 


M 


H62 


G63 




289 


z 


7 


3228 


M 


H33 


H32 




289 


L. 






i 








289 


z 


8 


3239 


V 


Z90 


H91 


1 


289 


z 


4 


3247 


B 


074 






289 



Z 


7 


3251 


C 


082 


G48 


289 


Z 


7 


3258 


M 


H74 


099 


290 


Z 


5 


3265 


B 


A57 


U 


290 


Z 


7 


3270 


C 


099 


G57 


290 


Z 


5 


3277 


B 


A57 


T 


290 


Z 


7 


3282 


A 


089 


099 


290 


Z 


7 


3289 


M 


0J9 


1A4 


290 


Z 


7 


3296 


Y 


190 


IS1 


291 


Z 


7 


3303 


M 


M98 


099 


291 


Z 


7 


3310 


Y 


OBI 


1/8 


291 


Z 


7 


3317 


M 


H74 


099 


291 


Z 


4 


3324 


B 


A32 




291 



1401 AUTOCOCER-PASS 4 MAIN LINE OVERLAY -VERSION 3 
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44 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1863 


17 


44 


♦GENERATE L 


ABEL ENTRY ADDRESS ! 


1864 


17 


45 


* 






1865 


17 


46 


PRQPNO 


SBR 


BOPXT+3 


1866 


17 


47 




BCE 


80PXT,IMAGE+17 


1867 


17 


48 




MCW 


IMAGE+22,W6AREA 


1868 


17 


49 




B 


PR0LA8 


1869 


17 


50 




MLC 


W3AREA, IMAGE+70 


1870 


17 


51 


80PXT 


B 


XXXX 


1871 


17 


52 


* 






1872 


17 


53 


•DETERMINE 


TYPE OF CONTROL OP 


1873 


17 


54 


* 






1874 


17 


55 


CTRLOP 


MCW 


EQUA0D-l,IMAGE+75 


1875 


17 


56 




S 


XL3 + 1 


1876 


17 


57 




MN 


E0UADD-1,XL3 


1877 


17 


58 




A 


XL3 


1878 


17 


59 




A 


XL3 


1879 


17 


60 




B 


♦+1+X3 


1880 


17 


61 




B 


DARTN 


1881 


17 


62 




B 


DCWCD 


1882 


17 


63 




B 


ERRHLT 


1883 


17 


64 




B 


EXEND 


1884 


17 


65 




8 


DOSFX 


1885 


17 


66 




B 


ERRHLT 


1886 


17 


67 




8 


ORGSTM 


1887 


17 


68 




B 


DSSTMT 


1888 


17 


69 




B 


INSPC 


1889 


17 


70 




MCW 


INPUT+80, IMAGE+21 


1890 


17 


71 




B 


NUREC 


1891 


17 


72 


INSPC 


MCW 


EQUADD-2,IMAGE+67 


1892 


17 


73 




MCW 


BLANK2,IMAGE+75 


1893 


17 


74 




MLC 


•01», IMAGE+7 


i on/. 


i ~r 


TC 




D 


cocunn 


A U 7-T 


JU I 


I J 




U 


i M,nuu 


1895 


17 


76 


ERRHLT 


H 


0,0402 


1896 


17 


77 




B 


ERRHLT 


1897 


17 


78 


* 






1898 


17 


79 


♦PROCESS LITERAL ORIGIN AND OR 


1899 


17 


80 


* 






1900 


17 


81 


GRGSTM 


B 


COMSCN 


1901 


17 


82 




B 


FNLOP 


1902 


17 


83 




B 


FR2FIX 


1903 


17 


84 




BCE 


SUB0RG,IMAGE+24,X 


1904 


17 


85 




BCE 


0RGPR0,IMAGE+17,» 


1905 


17 


86 




IS 


+1,0RGCTR 


1906 


17 


87 




BCE 


ORGADJ, IMAGE+17, 


1907 


17 


88 




BWZ 


ORGCVT, IMAGE+17, 2 


1908 


17 


89 




S 


XL2+1 


1909 


17 


90 




B 


PROPND 


1910 


17 


91 


ORGADJ 


A 


IMAGE+26,0RGCTR 


1911 


17 


92 


TYPORG 


MLC 


0RGCTR,IMAGE+61 


1912 


17 


93 




BCE 


NUREC, INPUT+16,0 



SFX CT LOCN INSTRUCTION TYPE CARD 



OPERANDS 



LINK TO SUBROUTINE 



CODE RECORD 

BRANCH TO APPROPRIATE 
ROUTINE 



PROCESS CC, SS 
TYPE OF 
INSTRUCTIONS 

SYSTEM ERROR HALT 
SHOULD NEVER OCCUR 



z 


4 


3328 


H C60 


291 


z 


7 


3332 


B C57 117 


292 


z 


7 


3339 


M 122 H77 


292 


2 


4 


3346 


8 W47 


292 


Z 


7 


3350 


M H74 170 


292 


Z 


4 


3357 


B 000 


292 



2 


7 


3361 


M 


N10 


175 


2 


4 


3368 


S 


100 




Z 


7 


3372 


D 


N10 


099 


2 


4 


3379 


A 


099 




Z 


4 


3383 


A 


099 




2 


4 


3387 


B 


CI1 




2 


4 


3391 


B 


M41 




2 


4 


3395 


8 


Yll 




2 


4 


3399 


8 


D63 




2 


4 


3403 


B 


G10 




2 


4 


3407 


B 


F92 




2 


4 


3411 


B 


D63 




2 


4 


3415 


B 


074 




2 


4 


3419 


B 


FOO 




2 


4 


3423 


B 


D38 




2 


7 


3427 


M 


080 


121 


2 


4 


3434 


B 


534 




2 


7 


3438 


M 


N09 


167 


2 


7 


3445 


M 


H60 


175 


2 


7 


3452 


M 


G36 


107 


-» 




i *. en 


n 
O 


r 3*3 




2 


7 


3463 


• 


000 


402 


2 


4 


3470 


B 


D63 





292 
293 
293 
293 
293 
293 
293 
293 
294 
294 
294 
294 
294 
294 
294 
295 
295 
295 
295 
295 
295 
296 
296 



SCAN FOR BLANK 


2 


4 


3474 


B 


860 






296 


CHECK LAST OPERAND 


2 


4 


3478 


B 


W05 






296 


FREE TO FIXED FORM 


2 


4 


3482 


B 


952 






296 


Q. ADJUSTMENT +XOD 


2 


8 


3486 


B 


E63 


124 


X 


296 


Q. ASTERISK OPERAND 


2 


8 


3494 


B 


E89 


117 


* 


296 


SET COUNTER TO -1 


2 


7 


3502 


- 


G44 


H58 




297 


Q. BLANK OPERAND 


2 


8 


3509 


B 


E33 


117 




297 


Q. ACTUAL ORIGIN 


2 


8 


3517 


V 


E78 


117 


2 


297 


PROCESS A OPERAND OF 


2 


4 


3525 


S 


095 






297 


SYMBOLIC ORIGIN 


2 


4 


3529 


B 


C28 






297 


ADD CHAR ADJUSTMENT 


2 


7 


3533 


A 


126 


H58 




297 


SAVE ORIGIN VALUE 


2 


7 


3540 


M 


H58 


161 




298 


Q. ORIGIN CARD 


2 


8 


3547 


8 


534 


016 





298 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1913 


17 


94 




6 


PUT 


1914 


17 


95 




6 


CALL 


1915 


17 


96 


SU8CRG 


IS 


+1,0RGCTR 


1916 


17 


97 




8 


PROPND 


1917 


17 


98 




B 


TYPORG 


1918 


17 


99 


ORGCVT 


B 


CVTFLA 


1919 


18 


00 




A 


H5AREA»0RGCTR 


1920 


18 


01 


GRGPRO 


M2 


ABBIT,IMAGE+1 


1921 


18 


02 




B 


ORGADJ 


1922 


18 


03 


* 






1923 


18 


04 


♦PROCESS OS 


STATEMENTS 


1924 


18 


05 


* 






1925 


18 


06 


DSSTMT 


B 


COMSCN 


1926 


18 


07 




B 


FNLOP 


1927 


18 


08 




B 


FR2FIX 


1928 


18 


09 




BUZ 


CKEQU,INPUT+21,2 


1929 


18 


10 




BCE 


CK4ADJ,IMAGE+17,* 


1930 


18 


11 




BCE 


NUREC, IMAGE+17,{ 


1931 


18 


12 




B 


PROPND 


1932 


18 


13 




B 


NUREC 


1933 


18 


14 


CK4A0J 


ZA 


IMAGE+26,IMAGE+61 


1934 


18 


15 




B 


DSETAD 


1935 


18 


16 


CKEQU 


ZA 


IMAGE+21»to5AREA 


1936 


18 


17 




B 


CVRT5 


1937 


18 


18 




A 


IMAGE+26,fc5AREA 


1938 


18 


19 




BCE 


DCWACT,IMAGE+75,P 


1939 


18 


20 




A 


W5AREA,0RGCTR 


1940 


18 


21 




B 


BMPCTR 


1941 


18 


22 


♦ 






1942 


18 


23 


♦PROCESS SUFFIX STATEMENTS 


1943 


18 


24 


* 






1944 


18 


25 


DGSFX 


fc4 • J"» 


INPUT+21 , IMAGE-rlT 


1945 


18 


26 




MCW 


INPUT+21,SFXHLD 


1946 


18 


27 




B 


NUREC 


1947 


18 


28 


* 






1948 


18 


29 


♦PROCESS EXECUTE, END STATEMENTS 


1949 


18 


30 


* 






1950 


18 


31 


EXEND 


B 


COMSCN 


1951 


18 


32 




B 


FNLOP 


1952 


18 


33 




B 


FR2FIX 


1953 


18 


34 




BCE 


NURECtINPUT+16,X 


1954 


18 


35 




B 


CALL 


1955 


18 


36 




LTORG 


» 




3 


L719 


LENSW 


DCW 


=01 
«01« 
+ 3 

•010' 
•Oil 1 

+1 

•51" 





SFX 


CT 


LOCN 


INSTRI 


JCTI 


PUT LTORG RECORD 


Z 


4 


3555 


8 610 




GO TO LITERAL ROUTINE 


Z 


4 


3559 


8 U31 




SET COUNTER TO -1 


I 


7 


3563 


- G44 


H58 


PROCESS A OPERAND 


Z 


4 


3570 


B C28 






I 


4 


3574 


B E40 




RESET COUNTER TO ACTL 


Z 


4 


3578 


B W28 




ADDRESS LESS ONE 


I 


7 


3582 


A H76 


H58 


MARK A OPERAND 


1 


7 


3589 


Y 189 


101 


PROCESSED 


I 


4 


3596 


B E33 





SCAN FOR COMMA/BLANK 
CHECK LAST OPERAND 
CONVERT TO FIXED FORM 
Q. ACTUAL OPERAND 
0. ASTERISK OPERAND 
Q. I/O OPERAND 
GENERATE LABEL ADDRESS 

PICKUP CHARACTER 

ADJUSTMENT 
CONVERT ACTUAL OPND OF 

EQU AND DS 
ADD CHARACTER ADJ 
Q. EQU CODE 
PROCESS DS 



c a n f 



CHARACTER 



SCAN FOR COMMA/BLANK 
CHECK LAST OPERAND 
CONVERT TO FIXED FORM 

MERGE LITERALS 



CARD 

298 
298 
298 
298 
298 
299 
299 
299 
299 



z 


4 


3600 


B 


860 




299 


z 


4 


3604 


B 


W05 




299 


z 


4 


3608 


B 


952 




299 


z 


8 


3612 


V 


F55 


021 2 


300 


z 


8 


3620 


B 


F44 


117 * 


300 


z 


8 


3628 


8 


534 


117 i 


300 


I 


4 


3636 


B 


C28 




300 


I 


4 


3640 


B 


534 




300 


I 


7 


3644 


* 


126 


161 


300 


I 


4 


3651 


B 


-82 




301 


I 


7 


3655 


♦ 


121 


H76 


301 


I 


4 


3662 


B 


V78 




301 


I 


7 


3666 


A 


126 


H76 


301 


I 


8 


3673 


B 


-50 


175 P 


301 


I 


7 


3681 


A 


H76 


H58 


301 


I 


4 


3688 


B 


-75 




302 





1 




u 

H 






■^ n *» 


1 


7 


3699 


M 


021 


H86 


302 


I 


4 


3706 


B 


534 




302 



Z 


4 


3710 


B 


860 




302 


Z 


4 


3714 


B 


WO 5 




302 


Z 


4 


3718 


B 


952 




302 


Z 


8 


3722 


B 


534 016 


X 


303 


Z 


4 


3730 


B 


U31 




303 


Z 








5734 






z 


1 


3734 






AREA 


303 


z 


2 


3736 






LIT 


303 


z 


1 


3737 






LIT 


303 


z 


3 


3740 






LIT 


303 


z 


3 


3743 






LIT 


303 


z 


1 


3744 






LIT 


304 


z 


2 


3746 






LIT 


304 
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SEQ 


PG 


LIN 


LABEL OP 


OPERANDS 

• (• 

•0» 

•002» 

*07» 

• $• 


1956 


18 


37 


GRPMK2 DCW 


t 1 


1957 


18 


38 


SAVE EQU 


*+l 


1958 


18 


39 


EX 


DOZERO 



SFX CT LOCN INSTRUCTION TYPE CARD 



SYSTEM GROUP MARK 



z 


1 


3747 


z 


1 


3748 


z 


3 


3751 


z 


3 


3754 


z 


1 


3755 


I 


2 


3757 


z 


1 


3758 


z 


1 


3759 


z 




3760 


z 







LIT 


304 


LIT 


304 


LIT 


304 


LIT 


304 


LIT 


304 


LIT 


305 


LIT 


305 




305 



8 000 



306 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1959 


18 


40 




JOB 


1401 AUTQCOCER-PASS 


1960 


18 


41 


* 






1961 


18 


42 


♦PROCESS DA 


STATEMENTS 


1962 


18 


43 


• 






1963 


18 


44 




ORG 


DOPROG 


1964 


18 


45 


DASTMT 


8SP 


SYSTAP 


1965 


18 


46 




BSP 


SYSTAP 


1966 


18 


47 




SW 


NUMSW,DACSW 


1967 


18 


48 




sw 


FRMKSW,DGMKSW 


1968 


18 


49 




BCE 


DAERR,INPUT+21,X 


1969 


18 


50 


EXSCAN 


BCE 


NDXSCN,INPUT+22+X2,X 


1970 


18 


51 




8CE 


DAERR,XL2,4 


1971 


18 


52 




A 


+1,XL2 


1972 


18 


53 




8 


EXSCAN 


1973 


18 


54 


NDXSCN 


A 


INPUT+21+X2 t BLKCTR 


1974 


18 


55 




A 


+2,XL2 


1975 


18 


56 




B 


COMSCN 


1976 


18 


57 




2A 


INPUT+19+X2,RECNTR=5 


1977 


18 


58 


FINHED 


BCE 


DAINDX,INPUT+21+X2»X 


1978 


18 


59 




BCE 


DAGMRK,INPUT+21+X2,G 


1979 


18 


60 




BCE 


DAFMRK, INPUT+21+X2,* 


1980 


18 


61 




BCE 


DACLR,INPUT+21+X2*C 


1981 


18 


62 




BCE 


CMPSZ, INPUT+20+X2, 


1982 


18 


63 




MZ 


ABIT,IMAGE+5 


1983 


18 


64 


CMPSZ 


S 


W5AREA 


1984 


18 


65 




MCW 


BLKCTR,62CNTR 


1985 


18 


66 


DAREP 


S 


+1,82CNTR 


1986 


18 


67 




BH 


SFANS, B2CNTR 


1987 


18 


68 




A 


RECNTR,W5AREA 


1988 


18 


69 




B 


DAREP 


1989 


18 


70 


SFANS 


MCW 


W5AREA,82CNTR 


1990 


18 


71 




MLC 


! «S IMAGE* 17 


1991 


18 


72 




BCE 


DASTR, INPUT+6, 


1992 


18 


73 




BWZ 


DANUM, INPUT+6,2 


1993 


18 


74 


DASTR 


MLC 


QRGCTR»DAL0C=5 


1994 


18 


75 




A 


+1,DAL0C 


1995 


18 


76 




A 


W5AREA,0RGCTR 


1996 


18 


77 




B 


ENDDA 


1997 


18 


78 


DANUM 


MLC 


INPUT+10,IMAGE+21 


1998 


18 


79 




CW 


NUMSW=1 


1999 


18 


80 




B 


CVTFLA 


2000 


18 


81 




MLC 


W5AREA,DAL0C 


2001 


18 


82 


ENCCA 


MLC 


DALOC, IMAGE+66 


2002 


18 


83 




MLC 


DALOC 


2003 


18 


84 




A 


RECNTR, IMAGE+66 


2004 


18 


85 




S 


+1, IMAGE+66 


2005 


18 


86 




S 


+1, DALOC 


2006 


18 


87 




CW 


HEDSW=1 


2007 


18 


88 




BW 


DALOOP,DACSW 


2008 


18 


89 




MCW 


IMAGE+80,CAHLD 



SFX CT LOCN INSTRUCTION TYPE CARD 



-VERSION 3 



RE-POSITION SYSTEM 

TAPE 
0. FIRST CHAR -X- 
SET SWITICHES 

SCAN FOR -X- IN -8XL- 



GET BLOCKING FACTOR 



GET RECORD LENGTH 

Q. INDEXING 

Q« GROUP MARK 

Q. RECORD MARK 

Q. CLEAR OPTION 

Q. NO OTHER OPTIONS 

MARK BAD STATEMENT 

COMPUTE SIZE OF AREA 
AND STORE IN 82CNTR 



DETERMINE WHETHER 
LOCATION OF DA IS 
ACTUAL OR ASTERISK 

PROCESS DA* 

BUMP ORIGIN COUNTER 

PROCESS ACTUAL DA 
SET ACTUAL DA SWITCH 



GENERATE HIGH ORDER 
LOCATION OF DA 



Q. CLEAR OPTION 
SAVE IMAGE 



I 






2575 






I 


5 


2575 


U 


(Ul 


B 


309 


I 


5 


2580 


U 


CU1 


B 


309 


1 


7 


2585 


t 


F31 


F55 


309 


z 


7 


2592 


t 


F58 


F57 


309 


z 


8 


2599 


8 


C14 


021 X 


309 


I 


3 


2607 


B 


034 


0K2 X 


310 


I 


8 


2615 


B 


C14 


094 4 


310 


I 


7 


2623 


A 


F18 


094 


310 


I 


4 


2630 


8 


007 




310 


I 


7 


2634 


A 


OKI 


F17 


310 


I 


7 


2641 


A 


F19 


094 


311 


I 


4 


2648 


B 


860 




311 


I 


7 


2652 


+ 


0J9 


F24 


311 


z 


8 


2659 


B 


C73 


OKI X 


311 


z 


8 


2667 


B 


C91 


OKI G 


311 


z 


8 


2675 


B 


D06 


OKI * 


312 


z 


8 


2683 


B 


C65 


OKI C 


312 


z 


8 


2691 


B 


P06 


OKO 


312 


z 


7 


2699 


Y 


187 


105 


312 


z 


4 


2706 


S 


H76 




312 


z 


7 


2710 


M 


F17 


H67 


313 


z 


7 


2717 


S 


F18 


H67 


313 


z 


8 


2724 


V 


P43 


H67 K 


313 


z 


7 


2732 


A 


F24 


H76 


313 


z 


4 


2739 


B 


P17 




313 


z 


7 


2743 


M 


H76 


H67 


314 


-* 






LI 

1*1 


F25 


"1 » T 

ill 


j it 


1 


8 


2757 


B 


P73 


006 


314 


I 


8 


2765 


V 


P98 


006 2 


314 


I 


7 


2773 


M 


H58 


F30 


314 


z 


7 


2780 


A 


F18 


F30 


315 


z 


7 


2787 


A 


H76 


H58 


315 


z 


4 


2794 


B 


Q20 




315 


z 


7 


2798 


M 


010 


121 


315 


z 


4 


2805 


) 


F31 




315 


z 


4 


2809 


B 


W28 




315 


z 


7 


2813 


M 


H76 


F30 


316 


z 


7 


2820 


M 


F30 


166 


316 


z 


4 


2827 


M 


F30 




316 


z 


7 


2831 


A 


F24 


166 


316 


z 


7 


2838 


S 


F18 


166 


316 


z 


7 


2845 


S 


F18 


F30 


316 


z 


4 


2852 


) 


F32 




317 


z 


8 


2856 


V 


+37 


F55 1 


317 


z 


7 


2864 


M 


180 


G54 


317 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2009 


18 


90 




CHAIN 


10 


2010 








MCW 




2011 








MOW 




2012 








MCW 




2013 








MCW 




2014 








MCW 




2015 








MCW 




2016 








MCW 




2017 








MCW 




2018 








MCW 




2019 








MCW 




2020 


18 


91 




MCW 


•A» f IMAGE+75 


2021 


18 


92 




MCW 


BLANK4,IMAGE+80 


2022 


18 


93 




MCW 


BLANK4, IMAGE+55 


2023 


18 


94 




MCW 


BLANK4,IMAGE+27 


2024 


18 


95 




sw 


INITSW 


2025 


18 


96 




MCW 


BLANK4,IMAGE+11 


2026 


18 


97 




MCW 


•DC SIMAGE + 16 


2027 


18 


98 




MCW 


•19»,lMAG£+7 


2028 


18 


99 




MCW 


DALOCIMAGE + 61 


2029 


19 


00 


CKNCQ 


c 


B2CNTR,+0020 


2030 


19 


01 




BH 


DOLST 


2031 


19 


02 




A 


+ 19, IMAGE+61 


2032 


19 


03 




M2 


ABBIT,IMAGE+1 


2033 


19 


04 




B 


PUT 


2034 


19 


05 




S 


+19,B2CNTR 


2035 


19 


06 




B 


CKNDQ 


2036 


19 


07 


DOLST 


C 


B2CNTR.+0C00 


2037 


19 


08 




BE 


RTMGE 


2038 


19 


09 




MN 


B2CNTR,IMAG£+7 


2039 


19 


10 




MN 




2040 


19 


11 




A 




2041 


19 


12 




MZ 


ABBIT,IMAGE+1 


2042 


19 


13 




B 


PUT 


2043 


19 


14 


RTMGE 


MCW 


DAHLD,IMAGE+80 


2044 


19 


15 




CHAIN 


10 


2045 








MCW 




2046 








MCW 




2047 








MCW 




2048 








MCW 




2049 








MCW 




2050 








MCW 




2051 








MCW 




2052 








MCW 




2053 








MCW 




2054 








MCW 




2055 


19 


16 


DALOOP 


SW 


INITSW 


2056 


19 


17 




ZA 


+1»B2CNTR 


2057 


19 


18 


CAPUT 


C 


B2CNTR f BLKCTR 


2058 


19 


19 




BH 


PUTIT 



SFX CT LOCN INSTRUCTION TYPE CARD 

















MACRO 






Z 


1 


2871 


M 






GEN 


317 




Z 


1 


2872 


M 






GEN 


317 




Z 


1 


2873 


M 






GEN 


317 




z 


1 


2874 


M 






GEN 


317 




z 


1 


2875 


M 






GEN 


318 




z 


1 


2876 


M 






GEN 


318 




z 


1 


2877 


M 






GEN 


318 




z 


1 


2878 


M 






GEH 


318 




z 


1 


2879 


M 






GEN 


318 




z 


1 


2880 


M 






GEN 


318 


CODE DC STATEMENT AND 


z 


7 


2881 


M 


F33 


175 




318 


TO CLEAR ENTIRE DA 


z 


7 


2888 


M 


H62 


180 




319 


AREA 


z 


7 


2895 


M 


H62 


155 




319 


NOTE - EACH DC IS 19 


z 


7 


2902 


n 


H62 


127 




319 


CHARACTERS 


z 


4 


2909 


t 


H87 






319 


OPTIMIZING THE 


z 


7 


2913 


M 


H62 


111 




319 


CONDENSED CARD 


z 


7 


2920 


M 


F36 


116 




319 




z 


7 


2927 


M 


F38 


107 




320 




z 


7 


2934 


M 


F30 


161 




320 




z 


7 


2941 


C 


H67 


F42 




320 




z 


5 


2948 


B 


R82 


U 




320 




z 


7 


2953 


A 


F44 


161 




320 




z 


7 


2960 


Y 


189 


101 




321 




z 


4 


2967 


B 


610 






321 




z 


7 


2971 


S 


F44 


H67 




321 




z 


4 


2978 


B 


R41 






321 




I 


7 


2982 


C 


H67 


F48 




321 




z 


5 


2989 


B 


+20 


S 




321 




z 


7 


2994 


D 


H67 


107 




322 




z 


1 


3001 


D 








322 




1 

i. 




JUVi. 


A 


no i 


1 y * 




nii 

->£.£. 




z 


7 


3009 


Y 


189 


101 




322 




z 


4 


3016 


B 


610 






322 


RESTORE IMAGE AREA 


z 


7 


3020 


M 


G54 


180 


MACRO 


322 




z 


1 


3027 


M 






GEN 


322 




z 


1 


3028 


M 






GEN 


323 




z 


1 


3029 


M 






GEN 


323 




I 


1 


3030 


M 






GEN 


323 




I 


1 


3031 


M 






GEN 


323 




I 


1 


3032 


M 






GEN 


323 




I 


1 


3033 


M 






GEN 


323 




I 


1 


3034 


M 






GEN 


323 




z 


1 


3035 


M 






GEN 


324 




I 


1 


3036 


M 






GEN 


324 




z 


4 


3037 


t 


H87 






324 




I 


7 


3041 


+ 


F18 


H67 




324 


GENERATE -8- NUMBER 


I 


7 


3048 


C 


H67 


F17 




324 




I 


5 


3055 


B 


B70 


U 




324 



1401 AUTGCOCER-PASS 4 PROCESS DA 



-VERSION 3 



3744L 



PAGE 49 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2059 


19 


20 


DAGET 


cw 


INITSW 


2060 


19 


21 




BW 


DAPUT2.HECSW 


2061 


19 


22 




MCW 


IMAG£+66,GMKADD=5 


2062 


19 


23 




A 


+1,GMKADD 


2063 


19 


24 




SW 


HEDSW 


2064 


19 


25 


DAPUT2 


B 


PUT 


2065 


19 


26 




BM 


CKFNLG,MARKStt 


2066 


19 




GET1 


g 


GET 


2067 


19 


28 




BCE 


GiTl,INPUT+6,* 


2068 


19 


29 




C 


INPUT+19,BLANK4 


2069 


19 


30 




BU 


CKFMRK 


2070 


19 


31 




MCW 


INPUT+84,IMAGE+80 


2071 


19 


32 




BCE 


*+5tINPUT*6» 


2072 


19 


33 




B 


PROLBL 


2073 


19 


34 




MLC 


+Q,IMAGE+75 


2074 


19 


35 




S 


XL2+1 


2075 


19 


36 




B 


COMSCN 


2076 


19 


37 




ZA 


INPUT+19+X2,IMAGE+66 


2077 


19 


38 




C 


RECNTR,IMAGE+66 


2078 


19 


39 




BH 


TFERR 


2079 


19 


40 




BCE 


SUBFLO, INPUT+20+X2, 


2080 


19 


41 




B 


COMSCN 


2081 


19 


42 




B 


FNLCP 


2082 


19 


43 




ZA 


INPUT+19+X2,IMAGE+61 


2083 


19 


44 




C 


RECNTR,IMAGE+61 


2084 


19 


45 




BH 


TFERR 


2085 


19 


46 




C 


IMAGE+61,IMAGE+66 


2086 


19 


47 




BH 


FLDERR 


2087 


19 


48 


ADOREC 


A 


DALOCIMAGE + 61 


2088 


19 


49 




A 


DALOCIMAGE + 66 


2089 


19 


50 




BM 


DAGET, IMAGE+75 


2090 


19 


51 




B 


DALOOP 


2091 


19 


52 


SUBFLO 


MLZS 


8BIT, IMAGE+75 


2092 


19 


53 




MLC 


IMAGE+66.IMAGE+61 


2093 


19 


54 




B 


AODREC 


2094 


19 


55 


PUTIT 


B 


PUT 


2095 


19 


56 




BW 


♦+8,MARKSW 


2096 


19 


57 




MZ 


ABIT, IMAGE+75 


2097 


19 


58 




A 


+1,B2CNTR 


2098 


19 


59 




A 


RECNTR,IMAGE+61 


2099 


19 


60 




A 


RECNTR,IMAGE+66 


2100 


19 


61 




B 


DAPUT 


2101 


19 


62 


DAERR 


MLZS 


ABBIT,IMAGE*4 


2102 


19 


63 




ZA 


+1,BLKCTR 


2103 


19 


64 




ZA 


+1,RECNTR 


2104 


19 


65 




B 


CMPSZ 


2105 


19 


66 


TFERR 


SBR 


*+ll 


2106 


19 


67 




MZ 


ABIT,IMAGE+5 


2107 


19 


68 




B 


XXXX 


2108 


19 


69 


FLDERR 


MZ 


BBlT,IMAGE+5 



SFX CT LOCN INSTRUCTION TYPE CARD 



324 
325 
325 
325 
325 
325 
325 
326 
326 
326 
326 
326 
326 
327 
327 
327 
327 
327 
327 
327 
328 
328 
328 
328 
328 
328 
329 
329 
329 
329 
329 
329 
330 
330 
330 
330 
330 
330 
331 
331 
331 
331 
331 
331 
332 
332 
332 
332 
332 
332 





Z 


4 


3060 


) 


H87 




0. DA HEADER 


Z 


8 


3064 


V 


+ 90 


F32 1 


SAVE LAST ADDRESS 


z 


7 


3072 


M 


166 


F53 


AS POTENTIAL GROUP 


z 


7 


3079 


A 


F18 


F53 


MARK ADDRESS 


z 


4 


3086 


t 


F32 






z 


4 


3090 


B 


610 




Q. REC MARK LOOP 


z 


8 


3094 


V 


£02 


H88 1 




z 


4 


3102 


B 


538 






z 


8 


3106 


B 


A02 


006 * 


Q. FIELD CARD 


z 


7 


3114 


C 


019 


H62 




z 


5 


3121 


B 


D21 


/ 


PICKUP ALTER NUMBER 


z 


7 


3126 


M 


084 


180 


Q. LABEL 


z 


8 


3133 


B 


A45 


006 


PROCESS LABEL 


z 


4 


3141 


B 


V38 




CODE RECORD 


z 


7 


3145 


M 


F54 


175 


FIND LIMITS OF FIELD 


I 


4 


3152 


S 


095 






I 


4 


3156 


B 


860 






I 


7 


3160 


+ 


0J9 


166 


Q. DOES FIELD EXCEED 


z 


7 


3167 


C 


F24 


166 


LIMIT OF DA 


z 


5 


3174 


B 


C39 


U 


Q. SUBFIELD 


z 


8 


3179 


8 


B52 


OKO 




z 


4 


3187 


B 


860 






z 


4 


3191 


B 


WO 5 






z 


7 


3195 


+ 


0J9 


161 


Q. DOES FIELD EXCEED 


z 


7 


3202 


C 


F24 


161 


LIMIT OF DA 


z 


5 


3209 


B 


C39 


U 


Q. FIELDS SPECIFIED IN 


z 


7 


3214 


C 


161 


166 


IN CORRECT ORDER 


z 


5 


3221 


B 


C54 


U 


CREATE ADDRESS FOR 


z 


7 


3226 


A 


F30 


161 


FIELDS 


I 


7 


3233 


A 


F30 


166 


Q. SUB FIELD 


I 


8 


3240 


V 


+60 


175 K 




1 


** 


3248 


D 
U 


+37 




PROCESS SUBFIELDS 


1 


7 


3252 


Y 


188 


175 




z 


7 


3259 


M 


166 


161 




I 


4 


3266 


B 


B26 






I 


4 


3270 


8 


610 




Q. RECORD MARK LOOP 


I 


8 


3274 


V 


689 


H88 1 


CODE REPEATS 


z 


7 


3282 


Y 


187 


175 




z 


7 


3289 


A 


F18 


H67 


COMPUTE FIELD LIMITS 


z 


7 


3296 


A 


F24 


161 




z 


7 


3303 


A 


F24 


166 




z 


4 


3310 


B 


+48 




IMPROPERLY CODEC DA 


z 


7 


3314 


Y 


189 


104 


HEADER ROUTINE 


z 


7 


3321 


+ 


F18 


F17 




z 


7 


3328 


+ 


F18 


F24 




z 


4 


3335 


B 


P06 




MARK ERROR 


z 


4 


3339 


H 


C53 






z 


7 


3343 


Y 


187 


105 




z 


4 


3350 


B 


000 




IMPROPERLY CODED DA 


z 


7 


3354 


Y 


188 


105 



1401 AUTOCOCER-PASS 4 PROCESS DA 



-VERSION 3 



3744L 



PAGE 



50 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


2109 


19 


70 




8 


DAPUT2 


2110 


19 


71 


OACLR 


Cfc 


DACSW=1 


2111 


19 


72 




B 


DATWO 


2112 


19 


73 


DAINDX 


MLNS 


INPUT+22+X2,IMAGE+27 


2113 


19 


74 




A 


+3,XL2 


2114 


19 


75 




B 


FINHED 


2115 


19 


76 


DAGMRK 


cw 


DGMKSW=1 


2116 


19 


77 


DATWO 


A 


+2,XL2 


2117 


19 


78 




B 


FINHED 


2118 


19 


79 


DAFMRK 


A 


+ 1, RECNTR 


2119 


19 


80 




CW 


FRMKSW=i 


2120 


19 


81 




B 


DATWO 


2121 


19 


82 


CKFMRK 


SW 


MARKSW 


2122 


19 


83 




BW 


CKFNLG.FRMKSW 


2123 


19 


84 




MLC 


•»*■ »,IMAGE+25 


2124 


19 


85 




MLC 


•DC *» ,IMAGE+17 


2125 


19 


86 




MLC 




2126 


19 


87 




MLC 


+l,IMAGE+75 


2127 


19 


88 




MLC 


*01 , t IMAGE+7 


2128 


19 


89 




MLC 


DALGCIMAGE+61 


2129 


19 


90 




A 


RECNTR, IMAGE+61 


2130 


19 


91 




BW 


DALOOP,NUMSW 


2131 


19 


92 




MCW 


BLANK, IMAGE+17 


2132 


19 


93 




M2 


ABBIT, IMAGE+3 


2133 


19 


94 




B 


DALOOP 


2134 


19 


95 


CKFNLG 


BN 


CALLOP, DGMKSW 


2135 


19 


96 




MLC 


*DCW , ,IMAGE+16 


2136 


19 


97 




MLC 


USIMAGE + 75 


2137 


19 


98 




MLC 


•01NIMAGE + 7 


2138 


19 


99 




MCW 


GMKADD,IMAGE+61 


2139 


20 


00 




MLC 


•• » %IMAGE + 25 


«5 1 * IS 


1A 






on 


r**.ttt a r~T uiiuri: 


2141 


20 


02 




MCW 


BLANK, IMAGE+17 


2142 


20 


03 




M2 


ABBIT,IMAGE+3 


2143 


20 


04 


PUTGMK 


B 


PUT 


2144 


20 


05 




6 


CALLOP 


2145 


20 


06 


GMKAST 


A 


+1,0RGCTR 


2146 


20 


07 




MCW 


•*%IMAGE + 17 


2147 


20 


08 




B 


PUTGMK 


2148 


20 


09 


CALLOP 


BSP 


INTAP 


2149 


20 


10 




B 


GET 


2150 


20 


11 




CW 


MARKSW,GRPMK6 


2151 


20 


12 




B 


FINDA 


2152 


20 


13 


8LKCTR 


DCW 


+00000 


2153 


20 


14 




LTORG 
DCW 


* 

+ 1 
+ 2 






L976 


RECNTR 




=05 




i 


L993 


DALCC 




=05 



SFX CT LOCN INSTRUCTION TYPE CARD 



FIELD ROUTINE 
PROCESS CLEAR OPTION 

ON HEADER RECORD 
PROCESS INDEXING ON 

HEADER RECORD 

INITIALIZE TO SHOW 

THERE IS GROUP 

MARK AFTER AREA 
INITIALIZE TO SHOW 

PRESENCE OF RECORD 

MARKS BETWEEN RECORDS 

Q. RECORD MARKS 
GENERATE -B~ NUMBER 
OF RECORD MARKS 



Q. SET GROUP MARK 
GENERATE RECORD TO SET 

GROUP MARK AT END OF 

DA STATEMENT 



PUT GROUP MARK RECORD 
GO BACK TO MAIN LINE 



z 


4 


3361 


B 


+90 




z 


4 


3365 


) 


F55 




I 


4 


3369 


B 


C95 




I 


7 


3373 


D 


0K2 


127 


1 


7 


3380 


A 


F56 


094 


z 


4 


3387 


B 


059 




I 


4 


3391 


) 


F57 




I 


7 


3395 


A 


F19 


094 


I 


4 


3402 


B 


059 




I 


7 


3406 


A 


F18 


F24 


z 


4 


3413 


3 


F58 




z 


4 


3417 


B 


C95 




z 


4 


3421 


f 


H88 




z 


8 


3425 


V 


E02 


F58 1 


z 


7 


3433 


M 


F61 


125 


z 


7 


3440 


M 


F65 


117 


z 


1 


3447 


M 






z 


7 


3448 


M 


F18 


175 


z 


7 


3455 


M 


F67 


107 


z 


7 


3462 


M 


F30 


161 


z 


7 


3469 


A 


F24 


161 


z 


8 


3476 


V 


+37 


F31 1 


z 


7 


3484 


M 


H59 


117 


z 


7 


3491 


Y 


189 


103 


z 


4 


3498 


B 


+ 37 




z 


8 


3502 


V 


E93 


F57 1 


z 


7 


3510 


M 


F70 


116 


z 


7 


3517 


M 


F71 


175 


z 


7 


3524 


M 


F67 


107 


z 


7 


3531 


M 


F53 


161 


z 


7 


3538 


M 


F74 


125 


-» 


n 
O 




if 

¥ 


C 1 3 




z 


7 


3553 


M 


H59 


117 


z 


7 


3560 


Y 


189 


103 


z 


4 


3567 


B 


610 




z 


4 


3571 


& 


E93 




z 


7 


3575 


A 


F18 


H58 


z 


7 


3582 


M 


F25 


117 


z 


4 


3589 


B 


E67 




z 


5 


3593 


U 


IU4 


B 


z 


4 


3598 


B 


538 




z 


7 


3602 


) 


H88 


G55 


z 


4 


3609 


8 


M62 




z 


5 


3617 








z 






3618 




z 


1 


3618 








z 


1 


3619 








z 


5 


3624 








z 


1 


3625 








z 


5 


3630 









LIT 

LIT 

AREA 

LIT 

AREA 



332 
333 
333 
333 
333 
333 
333 
333 
334 
334 
334 
334 
334 
334 
334 
335 
335 
335 
335 
335 
335 
336 
336 
336 
336 
336 
337 
337 
337 
337 
337 

-s *% r\ 

338 
338 
338 
338 
338 
339 
339 
339 
339 
339 
339 
339 

340 
340 
340 
340 
340 



1401 AUTOCODER-PASS 4 PROCESS DA 



SEQ 


PG LIN 


LA8EL 


OP 


OPERANDS 




1998 


NU^SW 




=01 




2006 


HEDSW 




=01 
»A» 

•DC • 
« 19 « 

+0020 
+ 19 
+0000 




2061 


GMKADD 




=05 
+0 




2110 


DACStt 




=01 
+3 




2115 


DGHKSfel 




=01 




2119 


FRMKSW 




=01 

ll|H 

•DC *• 
•01* 
•DCW« 
• !• 
ii it 


2154 


20 15 




DA 


1X80 


2155 


20 16 


DAHLD 




80 


2156 


20 17 


GRPPK6 


DC* 


t i 


2157 


20 18 




EX 


DOZERO 



-VERSION 3 




3744L 


*3 t* -A 


CT 


LOCN 


Z 


1 


3631 


Z 


1 


3632 


z 


1 


3633 


z 


3 


3636 


z 


2 


3638 


z 


4 


3642 


z 


"2 


3644 


z 


4 


3648 


z 


5 


3653 


z 


1 


3654 


z 


1 


3655 


z 


1 


3656 


z 


1 


3657 


z 


1 


3658 


z 


3 


3661 


z 


4 


3665 


z 


2 


3667 


z 


3 


3670 


z 


1 


3671 


z 


3 


3674 


z 




3675 


z 




3754 


' MARK Z 


1 


3755 


Z 







PAGE 51 



INSTRUCTION TYPE CARD 



3754 



B 000 



AREA 


340 


AREA 


340 


Lit 


341 


LIT 


341 


LIT 


341 


LIT 


341 


Lit 


341 


LIT 


341 


AREA 


341 


LIT 


342 


AREA 


342 


LIT 


342 


AREA 


342 


AREA 


342 


LIT 


342 


LIT 


342 


LIT 


343 


LIT 


343 


LIT 


343 


LIT 


343 




343 


S8FLD 






344 




345 



1401 AUTOCOCER-PASS 4 PROCESS LITERALS 



-VERSION 3 



3745L 



PAGE 



52 



SEQ 


PG 


LIN 


LABEL OP 


OPERANDS 


2158 


20 


19 


JOB 


1401 AUTOCODER-PASS 


2159 


20 


20 


ORG 


DOPROG 


2160 


20 


21 


GVLLIT WTM 


LITAPE 


2161 


20 


22 


WTW 


LITAPE, IMAGE+1 


2162 


20 


23 


NOP 





2163 


20 


24 


BER 


TPERR 


2164 


20 


25 


BEF 


* + l 


2165 


20 


26 


WTW 


LITAPE, IMAGE+1 


2166 


20 


27 


NOP 





2167 


20 


28 


BER 


TPERR 


2168 


20 


29 


* 




2169 


20 


30 


RWD 


LITAPE 


2170 


20 


31 


BSP 


SYSTAP 


2171 


20 


32 


8SP 


SYSTAP 


2172 


20 


33 


BSP 


SYSTAP 


2173 


20 


34 


CW 


GRPHK7 


2174 


20 


35 


CS 


INPUT+80 


2175 


20 


36 


sw 


INPUT+16,LITSW2 


2176 


20 


37 


MRCM 


INPUT+1,INAGE+1 


2177 


20 


38 


MLC 


8LANK4,IMAGE+80 


2178 


20 


39 


S 


XL2 + 2 


2179 


20 


40 


S 




2180 


20 


41 


MLC 


»DCW«,IMAGE+16 


2181 


20 


42 


LITGB MCW 


+INPUT+13,N2+6 


2182 


20 


43 


RT 


LITAPE, INPUT+1 


2183 


20 


44 


B 


NOISE 


2184 


20 


45 


BER 


TPERR 


2185 


20 


46 


BEF 


RTNLIT 


2186 


20 


47 


MCW 


INPUT+4,II*AGE + 70 


2187 


20 


48 


MLC 


»/*»IMAGE+75 


2188 


20 


49 


B 


PROLBL 


i i an 

C 107 




5u 


8 


n r- ».! f n 


2190 


20 


51 


LITRTN B 


PUT 


2191 


20 


52 


B 


LITGB 


2192 


20 


53 


RTNLIT MCW 


+IMAG£+13»N2+6 


2193 


20 


54 


RTW 


LITAPE, IMAGE+1 


2194 


20 


55 


B 


NOISE 


2195 


20 


56 


BER 


TPERR 


2196 


20 


57 


RWD 


LITAPE 


2197 


20 


58 


SW 


LITSW 


2198 


20 


59 


CW 


LITSW2 


2199 


20 


60 


A 


-HOtEXNUMB 


2200 


20 


61 


BCE 


»+5,EXNUMB-l t 


2201 


20 


62 


B 


RECALL 


2202 


20 


63 


A 


+96,EX0VFL 


2203 


20 


64 


A 


+96,EX0VFL 


2204 


20 


65 


B 


RECALL 


2205 


20 


66 


LTORG 

OCW 


* 
«DCW* 




2181 




+INPUT+13 



SFX CT LOCN INSTRUCTION TYPE CARD 



LITERALS -VERSION 3 


















2 






2575 








2 


5 


2575 


U 


(U6 


M 


348 


SAVE IMAGE AREA 


2 


8 


2580 


L 


(U6 


101 W 


348 




2 


4 


2588 


N 


000 




348 




2 


5 


2592 


B 


221 


L 


348 


RESET EOF TRIGGER 


2 


5 


2597 


B 


002 


K 


348 


NOTE - MUST WRITE OUT 


2 


8 


2602 


L 


CU6 


101 W 


348 


IMAGE AREA TWICE 


2 


4 


2610 


H 


000 




348 


BECAUSE EOF TREATED 


2 


5 


2614 


B 


221 


L 


349 


AS NOISE RECORD 


















2 


5 


2619 


U 


(U6 


R 


349 


POSITION SYSTEM TAPE 


2 


5 


2624 


U 


<U1 


B 


349 


TO BRING BACK 


2 


5 


2629 


U 


(Ul 


B 


349 


MAIN LINE 


2 


5 


2634 


U 


<U1 


8 


349 




2 


4 


2639 


) 


Q27 




349 


BLANK INPUT AND FIXED 


2 


4 


2643 


/ 


080 




349 


FORM AREA 


2 


7 


2647 


t 


016 


H90 


350 




2 


7 


2654 


P 


001 


101 


350 




2 


7 


2661 


M 


H62 


180 


350 




2 


4 


2668 


S 


096 




350 




2 


1 


2672 


S 






350 




2 


7 


2673 


M 


Q15 


116 


350 




2 


7 


2680 


M 


018 


446 


351 


READ IN LITERAL 


2 


8 


2687 


M 


CU6 


001 R 


351 


CHECK FOR NOISE 


2 


4 


2695 


B 


425 




351 




2 


5 


2699 


B 


221 


L 


351 


Q. ANY MORE LITERALS 


2 


5 


2704 


B 


P39 


K 


351 


CODE MOTHER RECD NUHBR 


2 


7 


2709 


M 


004 


170 


351 


CODE RECORD 


2 


7 


2716 


M 


Q19 


175 


352 


PROCESS LABEL 


2 


4 


2723 


B 


V38 




352 


rtrmr r? c- c c- -r a t r- m i- n -*■ 




t 


£. I C f 


O 


V* 1 1 

7 J.JL 




*S ff* -** 

3Z>£. 


PUT RECORD 


2 


4 


2731 


B 


610 




352 




2 


4 


2735 


B 


080 




352 




2 


7 


2739 


M 


Q22 


446 


352 


REGENERATE IMAGE AREA 


2 


8 


2746 


L 


iU6 


101 R 


352 


CHECK FOR NOISE 


2 


4 


2754 


B 


425 




353 




2 


5 


2758 


B 


221 


L 


353 




2 


5 


2763 


U 


(U6 


R 


353 


RESET LITERAL SWITCH 


2 


4 


2768 


t 


N46 




353 




2 


4 


2772 


) 


H90 




353 


SECTION TO GUARANTEE 


2 


7 


2776 


A 


Q24 


193 


353 


UNIQUENESS OF 


2 


8 


2783 


8 


P95 


192 


353 


LITERAL LABELS UP TO 


2 


4 


2791 


B 


U68 




354 


80 LTORG OR EX CARDS 


2 


7 


2795 


A 


Q26 


191 


354 




2 


7 


2802 


A 


Q26 


191 


354 




2 


4 


2809 


B 


U68 




354 




2 






2813 








2 


3 


2815 






LIT 


354 




2 


3 


2818 


013 


ADCON 


354 



1401 AUTOCODER-PASS 4 PROCESS LITERALS 



■VERSION 3 



3745L 



PAGE 



53 



SEQ PG LIN LABEL 



2192 



2206 20 67 

2207 20 68 



GRPPK7 DCtt 
EX 



OPERANDS 

•/* 

+IMAGE+13 
+ 10 
+96 
• t 

DOZERO 



SYSTEM GROUP MARK 



FX 


CT 


LGCN 


INSTRUCTION 


TYPE 


CARD 


Z 


1 


2819 




LIT 


354 


Z 


3 


2822 


113 


ADCON 


355 


Z 


2 


2824 




LIT 


355 


Z 


2 


2826 




LIT 


355 


z 


1 


2827 






355 



8 000 



356 



1401 AUTOCODER-PASS 4 END OF PASS OVERLAY -VERSION 3 



3746L 



PAGE 



54 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




2208 


20 


69 




JOB 


1401 AUTOCODER-PASS 4 END 


OF PASS OVERLAY -VERSIO 


2209 


20 


70 




ORG 


SAVE2 




2210 


20 


71 


EOJRT 


RWD 


LITAPE 




2211 


20 


72 




B 


PUT 


PUT END CARD 


2212 


20 


73 




WT 


OUTAP, OUTPUT+1 


ASSURE LAST RECORD 


2213 


20 


74 




NOP 





IS WRITTEN 


2214 


20 


75 




BER 


TPERR 


WHEN BLOCKING 


2215 


20 


76 




WTM 


OUTAP 




2216 


20 


77 




RWD 


OUTAP 




2217 


20 


79 




cs 


INPUT+85 


CLEAR ALL GROUP 


2218 


20 


80 




Cfc 


GRPMK2,GRPMK3 


MARKS 


2219 


20 


81 




cw 


GRPMK4 




2220 


20 


82 




RTW 


SYSTAP.PASSC1 


READ PASS 5 


2221 


20 


83 




NOP 







2222 


20 


84 




BER 


TPERR 




2223 


20 


85 




LCA 


T0TLBL»2393 


PASS INFORMATION TO 


2224 


20 


86 




LCA 


PR0C0R,2389 


PASS 5 


2225 


20 


87 




B 


PASSC2 


GO TO PASS 5 


2226 


20 


88 




ocw 







2227 


20 


89 




DCW 


i t 


SYSTEM GROUP MARK 


2228 


20 


90 




EX 







2229 


20 


91 


* 








2230 


20 


92 


♦ EQUATES 






2231 


20 


93 


* 








2232 


20 


94 


INTAP 


EQU 


(U4 




2233 


20 


95 


CUTAP 


EGU 


<U5 




2234 


20 


96 


LITAPE 


EQU 


*U6 




2235 


20 


97 


K4K 


EQU 


4000 




2236 


20 


98 


W3AREA 


EQU 


W6AREA-3 


EQUATES 


2237 


20 


99 


W5AREA 


EQU 


W6AREA-1 




2238 


21 


00 


BLANK 


EQU 


BLANK4-3 




2239 


9 1 


W -A. 


at ami/') 

Vfcrill «**. 




Ql A Mi/ A — O 




2240 


21 


02 


HOLD2 


EQU 


B2CNTR-3 




2241 


21 


03 


H0LD3 


EQU 


B2CNTR-2 




2242 


21 


04 


ABIT 


EQU 


ZQNE-2 




2243 


21 


05 


BBIT 


EQU 


ZONE-1 




2244 


21 


06 


ABBIT 


ECU 


ZONE 




2245 


21 


07 


XXXX 


EQU 


000 




2246 


21 


08 


INPUT 


EQU 


000 




2247 


21 


09 


OUTPUT 


EQU 


3917 




2248 


21 


10 


PASSC1 


ECU 


1925 




2249 


21 


11 


PASSC2 


ECU 


2400 




2250 


21 


12 


DGZERO 


EQU 


000 




2251 


21 


13 


FREE 


EQU 


INPUT 




2252 


21 


14 




END 


START 





SFX CT LOCN INSTRUCTION TYPE CARD 



Z 0706 

Z 5 0706 U (U6 R 

Z 4 0711 B 610 

Z 8 0715 M (U5 118 U 

I 4 0723 N 000 

Z 5 0727 B 221 L 

Z 5 0732 U IU5 M 

Z 5 0737 U <U5 R 

Z 4 0742 / 085 

Z 7 0746 ) G59 H44 

Z 4 0753 ) 185 

Z 8 0757 L <Ui Z25 R 

Z 4 0765 N 000 

Z 5 0769 B 221 L 

Z 7 0774 L 198 L93 

Z 7 0781 L 194 L89 

Z 4 0788 B MOO 

I 1 0792 

Z 1 0793 

Z B 000 



359 
359 
359 
359 
359 
359 
359 
360 
360 
360 
360 
360 
360 
360 
361 
361 
361 
361 
362 



z 


(U4 




z 


(U5 




z 


«U6 




z 


4000 




z 


3874 




z 


3876 




z 


3859 




"9 


3860 




1 


3864 




z 


3865 




z 


0187 




z 


0188 




z 


0189 




z 


0000 




z 


0000 




z 


3917 




z 


1925 




z 


2400 




z 


0000 




z 


0000 




z 




/ N75 080 



365 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



,008015,019026, 030,03404 1*045, 053, 0570571026 

L068112, 102106, 113/101099/ 199, 027AQ70028)02780010270BG261, 001/001113 10 

,008015,022029,0 36040,047054,061068,072/061039 ,0010011040 



1401 AUTQCOCER-PASS 5-PROCESS LABELS-INITL-VERSION 3 



3751L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


101 


1 


01 


000 


JOB 


1401 AUTOCODE 


102 


1 


02 




CTL 


63011 


103 


1 


03 


* 






104 


1 


04 


* EQUATES USED BY PROGRAM 


105 


1 


05 


* 






106 


1 


06 


IN1TAP 


EQU 


CUO 


107 


1 


07 


SYSTPE 


EQU 


CU1 


108 


1 


08 


SAVETP 


EQU 


CU4 


109 


1 


09 


CINPUT 


EQU 


CU5 


110 


1 


10 


COUTPT 


EQU 


(U6 


111 


1 


11 


DOUTPT 


EQU 


CU5 


112 


1 


12 


DINPUT 


ECU 


CU6 


113 


1 


13 


TABLE 


EQU 


2409 


114 


1 


14 


AOCLO 


EQU 


TABLE-006+X2 


115 


1 


15 


SYMHO 


EQU 


TABLE-005+X2 


116 


1 


16 


ADDHO 


EQU 


TABLE-009+X2 


117 


1 


17 


L8LREF 


ECU 


TABLE-008+X2 


118 


1 


18 


SYMBOL 


EQU 


TA8LE+X2 


119 


1 


19 


CARD 


EQU 





120 


1 


20 


STAOP 


EQU 


CARD+G01 


121 


1 


21 


STLABL 


ECU 


CARD+002 


122 


1 


22 


STADDR 


EQU 


CARO+003 


123 


1 


23 


STBOP 


EQU 


CARD4-004 


124 


1 


24 


COUNT 


EQU 


CARD+007 


125 


1 


25 


LABEL 


ECU 


CARC+013 


126 


1 


26 


AOPER 


EQU 


CARD+022 


127 


1 


27 


AQPADJ 


EQU 


CARD*G26 


128 


1 


28 


AINDEX 


EQU 


CARD+027 


129 


1 


29 


ORGADD 


EQU 


CARD+032 


130 


1 


30 


CNVLAB 


ECU 


CARD+056 


131 


1 


31 


LA8ADD 


EQU 


CARD+061 


132 


1 


32 


SUPADD 


EQU 


CARD+066 


133 


1 


33 


AOP 


EQU 


CARD+G70 


134 


1 


34 


TYPE 


EQU 


CARD+075 


135 


1 


35 


AOPHO 


ECU 


CARD+017 


136 


1 


36 


LBLHO 


EQU 


CARD+008 


137 


1 


37 


HOACD 


ECU 


CARD+057 


138 


1 


38 


TPAREA 


EQU 


3918 


139 


1 


39 


INPUT 


EQU 


TPAREA-001+X3 


140 


1 


40 


LIMIT 


EQU 


TPAREA+13 


141 


1 


41 


XXXX 


ECU 





142 


1 


42 


GPMRK3 


EQU 


3998 


143 


1 


43 


LIBRN 


EQU 





144 


1 


44 


• 






145 


1 


45 


« 






146 


1 


46 


» GET, 


PUT, 


REDUNDANCY + 


147 


1 


47 


* CROSSOVER 


ROUTINES CGMMO 



SEX CT LOCN INSTRUCTION TYPE CARD 



CUO 

CU1 

(U4 

(U5 

(U6 

<U5 

<U6 

2409 

2403 

2404 

2400 

2401 

2409 

0000 

0001 

0002 

0003 

0004 

0007 

0013 

0022 

AAA / 

0027 
0032 
0056 
0061 
0066 
0070 
0C75 
0017 
0008 
0057 
3918 
3917 
3931 
0000 
3998 
0000 



1401 AUTOCOCER-PASS 5-PRGCESS LABELS-INITL-VERSION 3 



3751L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


148 


1 


48 


* TO BOTH PASSES 


149 


1 


49 


* 






15C 


1 


50 


* 






151 


1 


51 




ORG 


ENDGFC+1 


152 


1 


52 


* 






153 


1 


53 


* GET 


+ PUT 




154 


1 


54 


* 






155 


1 


55 


GET 


C 


BLKCT,KBLKNG 


156 


1 


56 




BE 


WRITE 


157 


1 


57 


NXTREC 


A 


+80,8LKCT 


158 


1 


58 




MCW 


BLKCT,XR3 


159 


1 


59 


MOVEIN 


MCW 


INPUT,CARO+080 


160 


1 


60 




CHAIN 


9 


161 








MCW 




162 








MCW 




163 








MCW 




164 








MCW 




165 








MCW 




166 








MCW 




167 








MCW 




168 








MCW 




169 








MCW 




170 


1 


61 




s 


XR3+001 


171 


1 


62 




s 




172 


1 


63 




s 




173 


1 


64 




B 


ANAL 


174 


1 


65 


PUT 


MCW 


BLKCT.XR3 


175 


1 


66 




MCW 


CARD+080 f INPUT 


176 


1 


67 




CHAIN 


9 


177 








MCW 




178 








MCW 




179 








MCW 




180 








MCW 




181 








MCW 




182 








MCW 




183 








MCW 




184 








MCW 




185 








MCW 




186 


1 


68 




B 


GET 


187 


1 


69 


» 






188 


1 


70 


*TAPE 


REDUNDANCY ROUTINE 


189 


1 


71 


* 






190 


1 


72 


TPERR 


S8R 


XR1 


191 


1 


73 




SBR 


REDXT+3 


192 


1 


74 




M2 


+9, XR1 


193 


1 


75 




MCW 


4000-10+Xl,TPINST+7 


194 


1 


76 




MN 


TPINST+3,BSPl+3 


195 


1 


77 




MCW 


TPINST+7,INST2+7 


196 


1 


78 


BSP1 


BSP 


INITAP 


197 


1 


79 




BCE 


WRTRED»TPINST+7»W 



SFX CT LOCN INSTRUCTION TYPE CARD 



1925 



7 


1925 


C 


L30 


L26 




4 


5 


1932 


B 


X67 


S 




4 


7 


1937 


A 


L36 


L30 




4 


7 


1944 


M 


L30 


099 




4 


7 


1951 


M 


IA7 


080 


MACRO 


4 


1 


1958 


M 






GEN 


4 


1 


1959 


M 






GEN 


4 


1 


1960 


M 






GEN 


5 


1 


1961 


M 






GEN 


5 


1 


1962 


M 






GEN 


5 


1 


1963 


M 






GEN 


5 


1 


1964 


M 






GEN 


5 


1 


1965 


M 






GEN 


5 


1 


1966 


M 






GEN 


5 


4 


1967 


S 


100 






6 


1 


1971 


s 








6 


1 


1972 


s 








6 


4 


1973 


B 


114 






6 


7 


1977 


M 


L30 


099 




6 


7 


1984 


M 


080 


IA7 


MACRO 


6 


1 


1991 


M 






GEN 


6 


1 


1992 


M 






GEN 


7 


t 

X 




n 






GEN 


/ 


I 


1994 


M 






GEN 


7 


1 


1995 


M 






GEN 


7 


1 


1996 


M 






GEN 


7 


1 


1997 


M 






GEN 


7 


1 


1998 


M 






GEN 


7 


1 


1999 


M 






GEN 


3 


4 


2000 


B 


Z25 






8 



4 


2004 


H 089 


8 


4 


2008 


H -76 


8 


7 


2012 


Y L37 089 


8 


7 


2019 


M IZO -67 


8 


7 


2026 


D -63 -43 


8 


7 


2033 


M -67 J76 


9 


5 


2040 


U (UO B 


9 


8 


2045 


B J49 -67 W 


9 



1401 AUTOCOCER-PASS 5-PROCESS LA8ELS-INITL-VERSI0N 3 



3751L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


198 


1 


80 




MCH 


+9,READCT=1 


199 


1 


81 


TPINST 


RT 


INITAP, XXXX 


200 


1 


82 




BER 


RDRERR 


201 


1 


83 


REDXT 


8 


xxxx 


202 


1 


84 


RDRERR 


MN 


TPINST+3,8SP2+3 


203 


1 


85 


BSP2 


BSP 


INITAP 


204 


1 


86 




S 


+1,READCT 


205 


1 


87 




BW2 


TPINST, READCT,B 


206 


1 


88 




MN 


TPINST+3,TPHALT+6 


207 


1 


89 


TPHALT 


H 


XXXX, 590 


208 


1 


90 




MCW 


TPINST+7,*+8 


209 


1 


91 




RT 


INITAP, XXXX 


210 


1 


92 




BSS 


BSP1,E 


211 


1 


93 


TPHLT3 


H 


XXXX, 511 


212 


1 


94 




B 


REDXT 


213 


1 


95 


WRTRED 


SKP 


SYSTPE 


214 


1 


96 




BCE 


SUBCTR, WRTCTR-1, 5 


215 


1 


97 




A 


+1,WRTCTR=2 


216 


1 


98 


INST2 


WT 


INITAP, XXXX 


217 


1 


99 




BER 


BSP1 


218 


2 


00 




B 


REDXT 


219 


2 


01 


SUBCTR 


S 


WRTCTR 


220 


2 


02 




MN 


TPINST+3,*+7 


221 


2 


03 


TPHLT2 


H 


XXXX, 560 


222 


2 


04 




B 


INST2 


223 


2 


05 


« 






224 


2 


06 


* CHECK FOR 


SHORT RECORDS 


225 


2 


07 


* 






226 


2 


08 


CHKLGT 


SBR 


XR1 


227 


2 


09 




SBR 


LGTXT+3 


228 


2 


10 




MZ 


+9,XR1 


229 


2 


il 


L6TCK 


BCE 


4000— 12-t-Xi , L INIT , 


230 


2 


12 




CHAIN 


12 


231 








BCE 




232 








BCE 




233 








BCE 




234 








BCE 




235 








BCE 




236 








BCE 




237 








BCE 




238 








BCE 




239 








BCE 




240 








BCE 




241 








BCE 




242 








BCE 




243 


2 


13 


LGTXT 


B 


XXXX 


244 


2 


14 


* 






245 


2 


15 


* CROSSOVER, 


C TO D 


246 


2 


16 


• 






247 


2 


17 


ROPSSD 


RTW 


SYSTPE,! 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 


2053 


M 


L37 


L38 


9 


8 


2060 


M 


CUO 
-77 


000 R 
L 


9 


5 


2068 


B 


10 


4 


2073 


B 


000 




10 


7 


2077 


D 


-63 


-87 


10 


5 


2084 


U 


(UO 


B 


10 


7 


2089 


S 


L39 


L38 


10 


8 


2096 


V 


-60 


L38 B 


10 


7 


2104 


D 


-63 


J17 


11 


7 


2111 


• 


000 


590 


11 


7 


2118 


M 


-67 


J32 


11 


8 


2125 


n 


(UO 


000 R 


11 


5 


2133 


8 


-40 


E 


11 


7 


2138 


* 


000 


511 


12 


4 


2145 


B 


-73 




12 


5 


2149 


U 


iUl 


E 


12 


8 


2154 


B 


J86 


L40 5 


12 


7 


2162 


A 


L39 


L41 


12 


8 


2169 


M 


(UO 


000 w 


12 


5 


2177 


B 


-40 


L 


13 


4 


2182 


B 


-73 




13 


4 


2186 


S 


L41 




13 


7 


2190 


D 


-63 


K03 


13 


7 


2197 


• 


000 


560 


13 


4 


2204 


B 


J69 




13 



4 


2208 


H 


089 




13 


4 


2212 


H 


K46 




14 


7 


2216 


Y 


L37 089 




14 


8 


2223 


B 


IY 8 131 


MACRO 


14 


1 


2231 


B 




GEN 


14 


1 


2232 


B 




GEN 


14 


1 


2233 


B 




GEN 


14 


1 


2234 


B 




GEN 


14 


1 


2235 


B 




GEN 


15 


1 


2236 


B 




GEN 


15 


1 


2237 


B 




GEN 


15 


1 


2238 


8 




GEN 


15 


1 


2239 


8 




GEN 


15 


1 


2240 


B 




GEN 


15 


1 


2241 


B 




GEN 


15 


1 


2242 


B 




GEN 


16 


4 


2243 


B 


000 




16 



8 2247 L iUl 001 R 



16 



1401 AUTOCOCER-PASS 5-PROCESS LABELS-INITL-VERSION 3 



3751L 



PAGE 



CCa 


?Q 


LIN 


LABEL 


OP 


OPERANDS 


248 


2 


18 




NOP 


XXXX 


249 


2 


19 




BER 


TPERR 


250 


2 


20 




Ck 


ENDOFD 


251 


2 


21 




B 


PASSD 


252 


2 


22 


* 






253 


2 


23 


» CROSSOVER, 


D TO C 


254 


2 


24 


# 






255 


2 


25 


RDPSSC 


RTW 


CQUTPTtl 


256 


2 


26 




NOP 


XXXX 


257 


2 


27 




BER 


TPERR 


258 


2 


28 




CW 


ENOOFC 


259 


2 


29 




B 


CLRTA8 


260 


2 


30 


* 






261 


2 


31 


* COMMON CONSTANTS 


262 


2 


32 


# 






263 


2 


33 


CLRMAX 


DCW 


«I97« 


264 


2 


34 


CLRMIN 


DSA 


TABLE-010 


265 


2 


35 


FNCTN 


OCW 


i • 


266 


2 


36 


TABMAX 


OCW 


•voo* 


267 


2 


37 


MAXADD 


DCW 


t * 


268 


2 


38 


TABLS2 


DCW 


+0150 


269 


2 


39 


MAXSER 


DCW 


i • 


270 


2 


40 


SFXCTR 


DCW 


• t 


271 


2 


41 


KBLKNG 


DCW 


•080« 


272 


2 


42 


BUMPOP 


DCW 


• s • 


273 


2 


43 


HOLDA 


DCW 


+0000 


274 


2 


44 


BLKCT 


EQU 


HGLDA-001 


275 


2 


45 


TPAD 


DSA 


TPAREA 


276 


2 


46 




LTORG 

DCW 


* 

+80 

+9 






198 


READCT 




=01 
+ 1 






215 


WRTCTR 




=02 


277 


2 


47 


• 






278 


2 


48 


* PROTECTED 


CONSTANTS 


279 


2 


49 


* 






280 


2 


50 


FACTOR 


EQU 


TA8LE-021 


281 


2 


51 


MACHSZ 


ECU 


TABLE-020 


282 


2 


52 


TOTLAB 


EQU 


TABLE-016 


283 


2 


53 


UNPRSW 


EQU 


TABLE-015 


284 


2 


54 


PRCCSW 


EQU 


TABLE-014 


285 


2 


55 


SERCHS 


EQU 


TABLE-010 


286 


2 


56 


* 






287 


2 


57 


« INITIALIZE 


PASS C ONE TIME 


288 


2 


58 


• 






289 


2 


59 




ORG 


TABLE-009 


290 


2 


60 




RWD 


SAVETP 


291 


2 


61 




RWD 


CINPUT 


292 


2 


62 




RWD 


COUTPT 



SFX CT 


LOCN 


INSTRUCTION TYPE 


CARD 


4 


2255 


N 


000 




16 


5 


2259 


B 


-04 


L 


16 


4 


2264 


) 


Y68 




16 


4 


2268 


B 


S90 




16 


8 


2272 


L 


(U6 


001 R 


17 


4 


2280 


N 


000 




17 


5 


2284 


B 


-04 


L 


17 


4 


2289 


\ 


Z24 




17 


4 


2293 


B 


Y13 




17 



3 


2299 






17 


3 


2302 


L99 




17 


6 


2308 






18 


3 


2311 






18 


3 


2314 






18 


4 


2318 






18 


4 


2322 






18 


1 


2323 






18 


3 


2326 






18 


1 


2327 






19 


4 


2331 
2330 






19 


3 


2334 


118 
2335 




19 


2 


2336 




LIT 


19 


1 


2337 




LIT 


19 




*» *> -y o 




AREA 


i a 

A. 7 


1 


2339 




LIT 


19 


2 


2341 




AREA 


20 



2388 
2389 
2393 
2394 
2395 
2399 



5 2400 
5 2405 
5 2410 



2400 
U (U4 R 
U (U5 R 
U (U6 R 



21 
21 
21 



1401 AUTOCODER-PASS 5-PROCESS LABELS-INITL-VERSION 3 



3751L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


293 


2 


63 






cs 


3999 


294 


2 


64 






sw 


GRPMRK 


295 


2 


65 






LCA 


•OOSPROCSW 


296 


2 


66 






LCA 


+0150.SERCHS 


297 


2 


67 






LCA 


»0015», FACTOR 


298 


2 


68 






RTW 


SYSTPE.l 


299 


2 


69 






NOP 


XXXX 


300 


2 


70 






8ER 


TPERR 


301 


2 


71 






CW 


ENDINT 


302 


2 


72 


* 








303 


2 


73 


* 


SET 


I/O GROUP MARK 


304 


2 


74 


» 








305 


2 


75 






MCW 


MACHSZ,KEEP1=001 


306 


2 


76 






A 


+3.KEEP1 


307 


2 


77 






MN 


KEEPl,*+004 


308 


2 


78 






MZ 


Z0NE2,*+GC7 


309 


2 


79 


SETIO 


LCA 


GRPMRK,GPMRK3 


310 


2 


80 






BWZ 


SETBMP,SETIC+006»2 


311 


2 


81 






CS 


4799 


312 


2 


82 






CS 


4399 


313 


2 


83 






MCW 


•='»BUMP 


314 


2 


84 






BCE 


SET8K,MACHSZ,4 


315 


2 


85 


* 








316 


2 


86 


• 


12K 


CONSTANTS 


317 


2 


87 


* 








318 


2 


88 






MCW 


BLKG12,KBLKNG 


319 


2 


89 






MCW 


TBSZ12,TA8LSZ 


320 


2 


90 






MCW 


T8LM12*TA6MAX 


321 


2 


91 






MCW 


TPA012»TPAD 


322 


2 


92 






MCW 


MDTP12,M0TP=003 


323 


2 


93 






A 


+72*FACT0R 


•J1A 


*> 


«/. 






ore 


CCTXn HAPLC7 C 


«#<CT 


c 


~J~T 






uuc 


jti i r , rewunoi. $ J 


325 


2 


95 


* 








326 


2 


96 


# 


16K 


CONSTANTS 


327 


2 


97 


* 








328 


2 


98 






A 


+40Q.TABLSZ 


329 


2 


99 






A 


+40, FACTOR 


330 


3 


00 






HZ 


ABBIT,TAB*AX 


331 


3 


01 






MZ 


ABBIT»TPAC 


332 


3 


02 






MZ 


ABBIT,MDTP 


333 


3 


03 






8 


SETTP 


334 


3 


04 


* 








335 


3 


05 


* 


8K CONSTANTS 


336 


3 


06 


« 








337 


3 


07 


SET8K 


MCW 


BLKG8K,KBLKNG 


338 


3 


08 






MCW 


TBSZ8K,TABLSZ 


339 


3 


09 






MCW 


TBLM8K,TABMAX 


340 


3 


10 






MCW 


TPAD8K»TPA0 


341 


3 


11 






MCW 


MDTP8K,MDTP 


342 


3 


12 






A 


+36, FACTOR 



SFX CT LOCN INSTRUCTION TYPE CARD 



21 
21 
21 
21 
22 
22 
22 
22 
22 



4 


2415 


/ 


199 




4 


2419 


t 


Q66 




7 


2423 


T 


Q68 


L95 


7 


2430 


L 


Q72 


L99 


7 


2437 


L 


076 


L88 


8 


2444 


L 


(Ul 


001 


4 


2452 


N 


000 




5 


2456 


B 


-04 


L 


4 


2461 


) 


R01 





7 


2465 


M L89 Q77 


22 


7 


2472 


A Q78 Q77 


23 


7 


2479 


Q77 M89 


23 


7 


2486 


Y 109 M99 


23 


7 


2493 


L Q66 198 


23 


8 


2500 


V P18 M99 2 


23 


4 


2508 


/ 79Z 


24 


4 


2512 


/ 39Z 


24 


7 


2516 


M Q79 W81 


24 


8 


2523 


B 020 L89 4 


24 



7 


2531 


M Q52 L26 


24 


7 


2538 


M Q56 L18 


24 


7 


2545 


M Q59 Lll 


25 


7 


2552 


M Q62 L34 


25 


7 


2559 


M Q65 Q82 


25 


7 


2566 


A Q84 L88 


25 


O 


£3 t D 


D UO£ LOU O 


25 



7 


2581 


A Q87 L18 


26 


7 


2588 


A Q89 L88 


26 


7 


2595 


Y 113 Lll 


26 


7 


2602 


Y 113 L34 


26 


7 


2609 


Y 113 Q82 


26 


4 


2616 


B 062 


26 



7 


2620 


M 036 L26 


27 


7 


2627 


M Q40 L18 


27 


7 


2634 


M Q43 Lll 


27 


7 


2641 


M Q46 L34 


27 


7 


2648 


M Q49 Q82 


27 


7 


2655 


A Q91 L88 


28 



1401 AUT0C0CER-PASS 5-PROCESS LABELS-INITL-VERSION 3 



37511- 



PAGE 



S£Q 


PG 


LIN 


LABEL 


OP 


OPERANDS 


343 


3 


13 


SETTP 


MZ 


TPAD,CLRM*X 


344 


3 


14 




MCW 


MDTP,M0VEIN+003 


345 


3 


15 




MCW 


MDTP,PUT+013 


346 


3 


16 




MCW 


TPAD,WRITE+C06 


347 


3 


17 




MCW 


TPAD,READ+010 


348 


3 


18 




MCW 


TPAD,L1MAC=3 


349 


3 


19 




MA 


+13,LIMAD 


350 


3 


20 




MCW 


LIMA0fLGTCK+6 


351 


3 


21 


SETBMP 


MCW 


BUMP,BUMPCP 


352 


3 


22 




LCA 


GRPMRK, ENCOFC 


353 


3 


23 


« 






354 


3 


24 


* WRITE PASS 


C CHECKPOINT ON 6 


355 


3 


25 


* 






356 


3 


26 




CS 


80 


357 


3 


27 




SW 


CARD+001»CARD+006 


358 


3 


28 




SW 


CARD+017 f CARD+024 


359 


3 


29 




SW 


CARD+028»CARD+035 


360 


3 


30 




SW 


CARD+057,CARD+062 


361 


3 


31 




SW 


CARD+068,CARD+071 


362 


3 


32 




WTW 


C0UTPT,1 


363 


3 


33 




NOP 


XXXX 


364 


3 


34 




BER 


TPERR 


365 


3 


35 




CW 


ENDOFC.GRPMRK 


366 


3 


36 




C 


TOTLAB,TABLSZ 


367 


3 


37 




MCW 


TABLSZ,SERCHS 


368 


3 


38 




S 


TOTLAB 


369 


3 


39 




BE 


CLRTAB 


370 


3 


40 




BH 


CLRTAB 


371 


3 


41 




MCW 


+0009,SERCHS 


372 


3 


42 




B 


CLRTAB 


373 


3 


43 


BLKG8K 


DCW 


»400» 


374 


3 


44 


TBSZ8K 


DCW 


+0510 


375 


3 


45 


TBLM8K 


DSA 


5100 


376 


3 


46 


TPA08K 


DSA 


7598 


377 


3 


47 


MDTP8K 


DSA 


7597+X3 


378 


3 


48 


BLKG12 


DCW 


* 800 • 


379 


3 


49 


TBSZ12 


OCW 


+0870 


380 


3 


50 


TBLM12 


DSA 


8700 


381 


3 


51 


TPA012 


DSA 


11198 


382 


3 


52 


MDTP12 


DSA 


11197+X3 


383 


3 


53 


GRPMRK 


DC 


• i 


384 


3 


54 




LTORG 
DCW 


* 

»oo» 

+0150 
•0015 1 






305 


KEEP1 




=01 
+3 
» = * 






322 


MDTP 




=03 
+ 72 



CT 


LGCN 


INSTRUCTION TYJ 


>£ CARD 


7 


2662 


Y L34 K99 


28 


7 


2669 


M 082 Z54 


28 


7 


2676 


M Q82 Z90 


28 


7 


2683 


M L34 X73 


28 


7 


2690 


M L34 X98 


29 


7 


2697 


M L34 Q94 


29 


7 


2704 


= Q96 Q94 


29 


7 


2711 


M Q94 K29 


29 


7 


2718 


M W81 L27 


29 


7 


2725 


L Q66 Z24 


30 



4 


2732 


/ 


080 




7 


2736 


t 


001 


006 


7 


2743 


t 


017 


024 


7 


2750 


» 


028 


035 


7 


2757 


t 


057 


062 


7 


2764 


t 


068 


071 


8 


2771 


L 


(U6 


001 W 


4 


2779 


N 


000 




5 


2783 


B 


-04 


L 


7 


2788 


) 


Z24 


Q66 


7 


2795 


C 


L93 


L18 


7 


2802 


M 


L18 


L99 


4 


2809 


S 


L93 




5 


2813 


B 


Y13 


S 


5 


2818 


B 


Y13 


U 


7 


2823 


M 


ROO 


L99 


4 


2830 


B 


Y13 




3 


2836 


















3 


2843 


/O* 




3 


2846 


E9Y 




3 


2849 


EIX 




3 


2852 








4 


2856 








3 


2859 


70- 




3 


2862 


A9Q 




3 


2865 


AIP 




1 


2866 












2867 




2 

4 
4 


2868 
2872 
2876 








1 


2877 








1 


2878 








1 


2879 








3 


2882 








2 


2884 











30 




30 




30 




30 




30 




31 




31 




31 




31 




31 




31 




32 




32 




32 




32 




32 




32 




32 








33 




33 




33 




33 




33 




33 




34 




34 




34 


LIT 


34 


LIT 


34 


LIT 


34 


AREA 


34 


LIT 


34 


LIT 


35 


AREA 


35 


LIT 


35 



1401 AUTOCOCER-PASS 5-PROCESS LABELS-INITL-VERSION 3 



3751L 



PAGE 



SEQ PG LIN LABEL OP 



348 LItfAD 



385 3 55 ENDINT DCW 

386 3 56 XFR 



OPERANDS 

+ 400 

+40 

+ 36 

=03 

+ 13 

+0009 
i i 

LI8RN 



SFX 



T 


LOCN 


INSTRUCTION TYPE 


CARD 


3 


2887 


LIT 


35 


2 


2889 


LIT 


35 


2 


2891 


LIT 


35 


3 


2894 


AREA 


35 


2 


2896 


LIT 


36 


4 


2900 


LIT 


36 


1 


2901 




36 



B 000 



37 



1401 AUT0C0CER-PASS 5 MAIN LINE 



-VERSION 3 



3752L 



PAGE 



SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


387 


3 


57 




JOB 


1401 AUTOCOD 


388 


3 


58 


* 






389 


3 


59 


* PASS 


C-LOAD SYMBOL TABL 


390 


3 


60 


* 






391 


3 


61 


ZONE 


EQU 


113 


392 


3 


62 


113 


DCW 


*2SKB« 


393 


3 


63 


Z0NE2 


EQU 


109 


394 


3 


64 


109 


DCW 


»2SKB» 


395 


3 


65 


A8BIT 


EQU 


ZONE 


396 


3 


66 


B8IT 


EQU 


ZONE-001 


397 


3 


67 


ABIT 


EQU 


ZONE-002 


398 


3 


68 


NOBIT 


EQU 


ZONE-003 


399 


3 


69 


XR1 


EQU 


89 


400 


3 


70 


89 


DCW 


•000* 


401 


3 


71 


XR2 


EQU 


94 


402 


3 


72 


94 


DCW 


•000* 


403 


3 


73 


XR3 


EQU 


99 


404 


3 


74 


99 


DCW 


»000» 


405 


3 


75 




ORG 


ZQNE+001 


406 


3 


76 


* 






407 


3 


77 


* DETERMINE 


RECORD TYPE 


408 


3 


78 


* 






409 


3 


79 


ANAL 


BM 


PUT,CARD+C05 


410 


3 


80 




BCE 


PUT, TYPE, i 


411 


3 


81 




BCE 


INSTR, TYPE, 


412 


3 


82 




MN 


TYPE,XR2 


413 


3 


83 




BCE 


DA,XR2,0 


414 


3 


84 




MCW 


«0»,INDFTR 


415 


3 


85 




MCW 


»O f ,DASW 


416 


3 


86 




A 


XR2 


417 


3 


87 




A 


XR2 


418 


3 


88 




g 


*+001+X2 


419 


3 


89 




NOP 


XX XX 


420 


3 


90 




B 


CONST 


421 


3 


91 




B 


CONST 


422 


3 


92 




B 


EXEND 


423 


3 


93 




B 


SFX 


424 


3 


94 




B 


PUT 


425 


3 


95 




B 


ORG 


426 


3 


96 




B 


OS 


427 


3 


97 




B 


PUT 


428 


3 


98 




B 


PUT 


429 


3 


99 


* 






430 


4 


00 


* PROCESS INSTRUCTIONS 


431 


4 


01 


* 






432 


4 


02 


INSTR 


MCW 


*0*,INDFTR 


433 


4 


03 




B 


PRCADD 


434 


4 


04 




B 


PR0CL8 


435 


4 


05 




BW2 


PUT,STADDR,2 


436 


4 


06 




A 


COUNT, NOWCTR 



SFX CT LOCN INSTRUCTION TYPE CARD 



5 MAIN LINE 



+ SET ADDRESSES 



-VERSION 3 



4 



0113 
0113 
0109 
0109 
0113 
0112 
0111 
0110 
0089 
0089 
0094 
0094 
0099 
0099 



0114 



40 
41 



42 
43 
44 



8 


0114 


V 


Z77 


005 K 


45 


8 


0122 


B 


Z77 


075 i 


45 


8 


0130 


B 


219 


075 


45 


7 


0138 


D 


075 


094 


45 


8 


0145 


B 


871 


094 


45 


7 


0153 


M 


Y92 


Y69 


46 


7 


0160 


M 


Y92 


Y68 


46 


4 


0167 


A 


094 




46 


4 


0171 


A 


094 




46 




Uil3 


a 






* * 


4 


0179 


N 


000 




46 


4 


0183 


B 


260 




46 


4 


0187 


8 


260 




47 


4 


0191 


B 


973 




47 


4 


0195 


B 


992 




47 


4 


0199 


B 


Z77 




47 


4 


0203 


B 


376 




47 


4 


0207 


B 


295 




47 


4 


0211 


B 


Z77 




47 


4 


0215 


B 


Z77 




48 



7 


0219 


M Y92 Y69 


48 


4 


0226 


B *03 


48 


4 


0230 


B /09 


48 


8 


0234 


V Z77 003 2 


48 


7 


0242 


A 007 Y48 


48 



1401 AUT0C0CER-PASS 5 MAIN LINE 



-VERSION 3 



37521- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


437 


4 


07 




S 


HSNOWCTR 


438 


4 


08 




B 


PUT 


439 


4 


09 


• 






440 


4 


10 


* PROCESS CONSTANTS + CSA 


441 


4 


11 


* 






442 


4 


12 


CONST 


BCE 


PRCAST, AOPHG,* 


443 


4 


13 




MCW 


•1SACTSW 


444 


4 


14 




B 


PRGCLB 


445 


4 


15 




B 


PUT 


446 


4 


16 


* 






447 


4 


17 


* CONSTANTS 


WITH ASTERISK ADDRESS 


448 


4 


18 


* 






449 


4 


19 


PRCAST 


B 


PRCADD 


450 


4 


20 




B 


PR0CL8 


451 


4 


21 




8 


PUT 


452 


4 


22 


* 






453 


4 


23 


* PROCESS DS 


+ EQUATES 


454 


4 


24 


* 






455 


4 


25 


OS 


BCE 


PROCTU»AOPHC,( 


456 


4 


26 




A 


AINDEX»INDFTR 


457 


4 


27 




BCE 


CONST, AOPHO,* 


458 


4 


28 




BWZ 


C0NST,A0PH0,2 


459 


4 


29 




BWZ 


*+005,STACP,2 


460 


4 


30 




B 


CONST 


461 


4 


31 


# 






462 


4 


32 


* EQUATE 




463 


4 


33 


• 






464 


4 


34 




B 


SETAOP 


465 


4 


35 




MCW 


DSAPUT,LA8RTN+003 


466 


4 


36 




BWZ 


UNPR0C,STA0P,2 


467 


4 


37 




B 


CONST 


468 


4 


33 


* 






469 


4 


39 


* OS OF INPUT DEVICE 


470 


4 


40 


* 






471 


4 


41 


PRCCTU 


MCW 


A0PER-003,L*BADD-C01 


472 


4 


42 




MCW 


•0« 


473 


4 


43 




B 


CONST 


474 


4 


44 


* 






475 


4 


45 


* PROCESS ORIGIN + LITERAL ORIGIN 


476 


4 


46 


* 






477 


4 


47 


ORG 


BWZ 


SETHGH, CARD+033,B 


478 


4 


48 




ZA 


LABADD,ORGACD 


479 


4 


49 




A 


•ISORGADC 


480 


4 


50 




MZ 


ABBIT,CARD+033 


481 


4 


51 


SETHGH 


BCE 


0RGSAV,MAXSW,1 


482 


4 


52 




C 


NOWCTR,HGHCTR 


483 


4 


53 




BH 


ORGSAV 


484 


4 


54 




ZA 


NOWCTR,HGHCTR 


485 


4 


55 


* 






486 


4 


56 


* PROCESS SAVE COUNTER OF ORIGIN 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 0249 
4 0256 



S Y93 Y48 
B Z77 



4 


0283 


B 


#03 


4 


0287 


B 


/09 


4 


0291 


B 


Z77 



49 

49 



8 


0260 


B 283 017 * 


49 


7 


0268 


M Y93 Y67 


49 


4 


0275 


B /09 


49 


4 


0279 


8 Z77 


49 



49 
50 
50 



8 


0295 


B 361 017 


< 


50 


7 


0303 


A 027 Y69 




50 


8 


0310 


B 260 017 


* 


50 


8 


0318 


V 260 017 


2 


50 


8 


0326 


V 338 001 


2 


51 


4 


0334 


B 260 




51 



4 


0338 


B U35 


51 


7 


0342 


M Y72 S97 


51 


8 


0349 


V /81 001 2 


51 


4 


0357 


B 260 


51 



7 


0361 


M 019 060 


52 


4 


0368 


M Y92 


52 


4 


0372 


B 260 


52 



8 


0376 


V 405 033 B 


52 


7 


0384 


+ 061 032 


52 


7 


0391 


A Y93 032 


52 


7 


0398 


Y 113 033 


53 


8 


0405 


B 432 Y60 1 


53 


7 


0413 


C Y48 Y58 


53 


5 


0420 


B 432 U 


53 


7 


0425 


♦ Y48 Y58 


53 



1401 AUTOCODER-PASS 5 MAIN LINE 



-VERSION 3 



3752L 



PAGE 



10 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


487 


4 


57 


* 








488 


4 


58 


ORGSAV 


8CE 


AOPOR,LBLHO» 


489 


4 


59 






MCW 


•005SXR1 


490 


4 


60 






MCW 


+A0P0R,LA8RTN+003 


491 


4 


61 






8WZ 


*+G05,STLABL,2 


492 


4 


62 






8 


AOPCR 


493 


4 


63 






8CE 


STRSAV.SUPACD, 


494 


4 


64 


8TGLAB 


8 


DOLABL 


495 


4 


65 






8 


SEARCH 


496 


4 


66 






8CE 


STORE, D8LSW,1 


497 


4 


67 






8CE 


STORE, SPCSW,0 


498 


4 


68 






8 


UNPROC 


499 


4 


69 


STRSAV 


BCE 


UNPR0C,A0DRSW,1 


500 


4 


70 






8CE 


UNPROC, LITRSW.l 


501 


4 


71 






MCW 


NOWCTR,SUPACD 


502 


4 


72 






A 


•l'tSUPAOD 


503 


4 


73 






8 


BTOLAB 


504 


4 


74 


* 








505 


4 


75 


* 


PROCESS A 


OPERAND OF ORIGIN 


506 


4 


76 


• 








507 


4 


77 


AGPCR 


BWZ 


»+005tSTACP,2 


508 


4 


78 






8 


ACTUAL 


509 


4 


79 






8CE 


ASTRSK,AOPHC,» 


510 


4 


80 






MCW 


•OSLITRSW 


511 


4 


81 






S 


NOWCTR 


512 


4 


82 






BCE 


BLKAOP,AOPHC, 


513 


4 


83 


* 








514 


4 


84 


* 


SYMBOLIC 


ORIGIN 


515 


4 


85 


* 








516 


4 


86 






MCW 


»0« ,ORGSW 


517 


4 


87 






S 


XR1+001 


518 


4 


88 






D 


rf* #■" "** A rtft 

:>c i flur 


519 


4 


89 






BCE 


SET0RG,0RGSW,1 


520 


4 


90 


SETSWS 


MCW 


•ll'.MAXSW 


521 


4 


91 






B 


SCNTB+7 


522 


4 


92 


SET0R6 


MCW 


LA8ADD*0RGCTR 


523 


4 


93 


RSTSWA 


MCW 


«0»,AODRSW 


524 


4 


94 






BCE 


*+005,AOPADJ-002,X 


525 


4 


95 






B 


AOPOUT 


526 


4 


96 


* 








527 


4 


97 


* 


ADJUSTMENT OF XOO 


528 


4 


98 


♦ 








529 


4 


99 






BCE 


NXTCNT, AOPHCt* 


530 


5 


00 






C 


ORGCTR.+OO 


531 


5 


01 






BE 


AOPOUT 


532 


5 


02 


NXTCNT 


MCW 


+00.ORGCTR 


533 


5 


03 






A 


•1*,ORGCTR-C02 


534 


5 


04 


AQPGUT 


A 


ORGCTR,ORGACD 


535 


5 


05 






ZA 


ORGCTR,LABACD 


536 


5 


06 






ZA 


ORGADD, NOWCTR 



SFX CT LOCN INSTRUCTION TYPE CARD 



8 


0432 


B 


536 


008 




54 


7 


0440 


M 


Y96 


089 




54 


7 


0447 


M 


Y99 


S97 




54 


8 


0454 


V 


466 


002 


2 


54 


4 


0462 


B 


536 






54 


8 


0466 


8 


502 


066 




55 


4 


0474 


B 


T58 






55 


4 


0478 


B 


W29 






55 


8 


0482 


8 


S69 


Y64 


1 


55 


8 


0490 


B 


S69 


Y63 





55 


4 


0498 


B 


/81 






55 


8 


0502 


B 


/81 


Y59 


1 


56 


8 


0510 


B 


/81 


Y61 


1 


56 


7 


0518 


M 


Y48 


066 




56 


7 


0525 


A 


Y93 


066 




56 


4 


0532 


B 


474 






56 



8 


0536 


V 


548 


001 


4 


0544 


B 


761 




8 


0548 


B 


708 


017 


7 


0556 


M 


Y92 


Y61 


4 


0563 


S 


Y48 




8 


0567 


B 


735 


017 



57 
57 
57 
57 
57 
57 



7 


0575 


M 


Y92 


Y66 


58 


4 


0582 


S 


090 




58 




f\tZ Oi 


B 


1 I1C 




58 


8 


0590 


B 


609 


Y66 1 


58 


7 


0598 


M 


Z01 


Y60 


58 


4 


0605 


B 


813 




58 


7 


0609 


M 


061 


Y53 


59 


7 


0616 


M 


Y92 


Y59 


59 


8 


0623 


B 


635 


024 X 


59 


4 


0631 


B 


669 




59 



8 


0635 


B 655 017 « 


59 


7 


0643 


C Y53 Z03 


60 


5 


0650 


B 669 S 


60 


7 


0655 


M Z03 Y53 


60 


7 


0662 


A Y93 Y51 


60 


7 


0669 


A Y53 032 


60 


7 


0676 


+ Y53 061 


61 


7 


0683 


+ 032 Y48 


61 



1401 AUTOCQCER-PASS 5 MAIN LINE 



-VERSION 3 



37521- 



PAGE 



11 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


537 


5 


07 






S 


•1SN0WCTR 


538 


5 


08 






MZ 


ABBIT,STAOP 


539 


5 


09 






B 


PUT 


540 


5 


10 


* 








541 


5 


11 


* 


CRIGIN ASTERISK 


542 


5 


12 


* 








543 


5 


13 


ASTRSK 


BCE 


PUT,ADDRSW,1 


544 


5 


14 






8CE 


SETSWS,LITRSW,1 


545 


5 


15 






MCW 


NOWCTR,ORGCTR 


546 


5 


16 






B 


RSTSWA 


547 


5 


17 


* 








548 


5 


18 


* 


CRIGIN MAXIMUM 


549 


5 


19 


* 








550 


5 


20 


BLKAOP 


BCE 


SETSyS,MAXSW,l 


551 


5 


21 






MCW 


HGHCTR,QR€CTR 


552 


5 


22 






A 


•1S0RGCTR 


553 


5 


23 






B 


RSTSWA 


554 


5 


24 


* 








555 


5 


25 


* 


CRIGIN ACTUAL GR PROCESSED 


556 


5 


26 


* 








557 


5 


27 


ACTUAL 


2A 


GRGADO,NOWCTR 


558 


5 


28 






S 


»1*,N0WCTR 


559 


5 


29 






BCE 


TSTXOO, AOPHC,* 


560 


5 


30 






MCW 


»0«,LITRSW 


561 


5 


31 






BWZ 


SCNT8,A0PH0,2 


562 


5 


32 






BWZ 


SETORG,STAOP,K 


563 


5 


33 


SCNTB 


MCW 


•0*,ADDRSW 


564 


5 


34 






S 


ORGCTR 


565 


5 


35 






B 


PUT 


566 


5 


36 


TSTXOO 


BCE 


PUT,AGPADJ-002,X 


567 


5 


37 






BWZ 


PUT,CARD+G34,B 


568 










A 


notir to . notiunn 


569 


5 


39 






BCE 


PUT»ADDRSW,1 


570 


5 


40 






BCE 


PUT,LITRSW,1 


571 


5 


41 






MZ 


ABBIT,CARC+034 


572 


5 


42 






B 


ACTUAL 


573 


5 


43 


* 








574 


5 


44 


« 


PROCESS OA 


STATEMENTS 


575 


5 


45 


• 








576 


5 


46 


OA 


BCE 


ORIGDA,TYPE,0 


577 


5 


47 






BCE 


TSTRPT, ACTSW,1 


578 


5 


48 


BTGADD 


C 


LABADD,SUPACD 


579 


5 


49 






BL 


# + 8 


580 


5 


50 






MCW 


•005SXR3 


581 


5 


51 






B 


PRCADD 


582 


5 


52 


TSTRPT 


BCE 


PUT, TYPE,* 


583 


5 


53 






B 


PROCLB 


584 


5 


54 






B 


PUT 


585 


5 


55 


* 








586 


5 


56 


« 


CA HEADER 





SFX CT LOCN INSTRUCTION TYPE CARD 



7 0690 
7 0697 
4 0704 



S Y93 Y48 
Y 113 001 

B 277 



61 
61 
61 



8 


0708 


B 


Z77 


Y59 


1 


62 


8 


0716 


B 


598 


Y61 


1 


62 


7 


0724 


M 


Y48 


Y53 




62 


4 


0731 


8 


616 






62 


8 


0735 


B 


598 


Y60 


1 


62 


7 


0743 


M 


Y58 


Y53 




63 


7 


0750 


A 


Y93 


Y53 




63 


4 


0757 


8 


616 






63 



7 


0761 


+ 


032 


Y48 




63 


7 


0768 


S 


Y93 


Y48 




63 


8 


0775 


B 


821 


017 


♦ 


64 


7 


0783 


M 


Y92 


Y61 




64 


8 


0790 


V 


806 


017 


2 


64 


8 


0798 


V 


609 


001 


K 


64 


7 


0806 


M 


Y92 


Y59 




64 


4 


0813 


S 


Y53 






65 


4 


0817 


B 


Z77 






65 


8 


0821 


B 


Z77 


024 


X 


65 


8 


0829 


V 


Z77 


034 


B 


65 


f 


fs a <% -i 


• 


Y53 


*J3C 




03 


8 


0844 


B 


Z77 


Y59 


1 


65 


8 


0852 


B 


Z77 


Y61 


1 


66 


7 


0860 


Y 


113 


034 




66 


4 


0867 


B 


761 






66 


8 


0871 


B 


926 


075 





66 


8 


0879 


8 


910 


Y67 


1 


66 


7 


0887 


C 


061 


066 




67 


5 


0894 


B 


906 


T 




67 


7 


0899 


M 


Y96 


099 




67 


4 


0906 


B 


t03 






67 


8 


0910 


B 


Z77 


075 


* 


67 


4 


0918 


B 


/09 






67 


4 


0922 


B 


Z77 






67 



1401 AUTOCODER-PASS 5 MAIN LINE 



-VERSION 3 



3752L 



PAGE 



12 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


587 


5 


57 


* 








588 


5 


58 


QRIGDA 


MCW 


•OSINDFTR 


589 


5 


59 






A 


AINDEX,INCFTR 


590 


5 


60 






MCW 


»l f ,DASW 


591 


5 


61 






MCW 


»0*»ACTSW 


592 


5 


62 






BCE 


BTGADD,AOPHC,« 


593 


5 


63 






MCW 


•1NACTSW 


594 


5 


64 






B 


TSTRPT 


595 


5 


65 


* 








596 


5 


66 


* 


PROCESS EX 


+ END 


597 


5 


67 


* 








598 


5 


68 


EXEND 


BWZ 


PUT.TYPE.fi 


599 


5 


69 






MCW 


•8«, BRANCH 


600 


5 


70 






B 


WRITE 


601 


5 


71 


* 








602 


5 


72 


* 


PROCESS SUFFIX 


603 


5 


73 


* 








604 


5 


74 


SFX 


MCW 


AOPHO,SFXCTR 


605 


5 


75 






B 


PUT 


606 


5 


76 


• 








607 


5 


77 


* 


PROCESS ADDRESSES 


608 


5 


78 


» 








609 


5 


79 


PRCADD 


SBR 


ADDRTN+003 


610 


5 


80 






MCW 


•OSACTSW 


611 


5 


81 






8WZ 


LITTST,STLABL,K 


612 


5 


82 


TSTAOO 


BWZ 


AODRTN,STADDR,B 


613 


5 


83 






BCE 


ADDRTN,ADCRSW,1 


614 


5 


84 






A 


ORGCTR,LABACD 


615 


5 


85 






A 


ORGCTR,SUPACD 


616 


5 


86 






C 


N0WCTR,LA8ADD+X3 


617 


5 


87 






BL 


♦+008 


618 


5 


88 






ZA 


i a n Ann > u<n *.-t *■*<*** Tf* 

LflDflUUtAj, nUHW I 1\ 


619 


5 


89 






BCE 


ADDRTN,L1TRSW,1 


620 


5 


90 






MZ 


ABBIT.STADDR 


621 


5 


91 


ADCRTN 


B 


XXXX 


622 


5 


92 


LITTST 


MCW 


DSAPUT.LA8RTN+003 


623 


5 


93 






BCE 


LITRAL,TYPE,/ 


624 


5 


94 






B 


TSTADD 


625 


5 


95 


• 








626 


5 


96 


• 


PROCESS LABEL 


627 


5 


97 


* 








628 


5 


98 


PRCCLB 


SBR 


LABRTN+003 


629 


5 


99 






BWZ 


»+005,STLABL,2 


630 


6 


00 






B 


LABRTN 


631 


6 


01 






BCE 


MRKPRCLBLHC, 


632 


6 


02 






BCE 


BT0LBL,ACTSW,1 


633 


6 


03 






BCE 


TSTDBL,LITRSW,1 


634 


6 


04 






BCE 


TSTDSLt ADCRSW,1 


635 


6 


05 


BTCLBL 


B 


DOLABL 


636 


6 


06 






B 


SEARCH 



SFX Ct LOCN INSTRUCTION TYPE CARD 



7 


0926 


M Y92 Y69 


68 


7 


0933 


A 027 Y69 


68 


7 


0940 


M Y93 Y68 


68 


7 


0947 


M Y92 Y67 


68 


8 


0954 


B 887 017 * 


68 


7 


0962 


M Y93 Y67 


69 


4 


0969 


B 910 


69 



8 


0973 


V 277 075 B 


69 


7 


0981 


M Z04 X84 


69 


4 


0988 


B X67 


69 



7 


0992 


M 017 L23 


69 


4 


0999 


B Z77 


70 



4 


1003 


H 


#89 






70 


7 


1007 


M 


Y92 


Y67 




70 


8 


1014 


V 


+90 


002 


K 


70 


8 


1022 


V 


4=86 


003 


B 


70 


8 


1030 


B 


4=86 


Y59 


1 


70 


7 


1038 


A 


Y53 


061 




71 


7 


1045 


A 


Y53 


066 




71 


7 


1052 


C 


Y48 


0F1 




71 


5 


1059 


B 


+71 


T 




71 


-i 
t 


iUOt 


T 




Y48 




f A 


8 


1071 


B 


4=86 


Y61 


1 


72 


7 


1079 


Y 


113 


003 




12 


4 


1086 


B 


000 






72 


7 


1090 


M 


Y72 


S97 




72 


8 


1097 


B 


T25 


075 


/ 


72 


4 


1105 


B 


4=22 






72 



4 


1109 


H S97 






73 


8 


1113 


V /25 


002 


2 


73 


4 


1121 


B S94 






73 


8 


1125 


B S80 


008 




73 


8 


1133 


8 /57 


Y67 


1 


73 


8 


1141 


B S07 


Y61 


1 


74 


8 


1149 


8 S07 


Y59 


1 


74 


4 


1157 


B T58 






74 


4 


1161 


8 W29 






74 



1401 AUTOCODER-PASS 5 MAIN LINE 



SEQ 


PG 


LIN 


LABEL 


Q? 


OPERANDS 


637 


6 


07 




BCE 


DBLDEF,DBLSW,1 


638 


6 


08 




BCE 


STORE, SPCSW,0 


639 


6 


09 


• 






640 


6 


10 


» UNPROCESSED LA8EL 


641 


6 


11 


* 






642 


6 


12 


UNPROC 


MCW 


•1SUNPRSW 


643 


6 


13 




A 


•ISTOTLAB 


644 


6 


14 




BCE 


SETSWL, TYPE,/ 


645 


6 


15 




B 


LABRTN 


646 


6 


16 


* 






647 


6 


17 


* SEARCH TABLE FOR DBL DEF LITERA 


648 


6 


18 


* 






649 


6 


19 


TSTOBL 


BCE 


UNPROC,LBLHC,$ 


650 


6 


20 




B 


DOLABL 


651 


6 


21 




B 


SEARCH 


652 


6 


22 




BCE 


UNPROC, DBLSk,0 


653 


6 


23 




BCE 


UNPROC, ADCHC, 


654 


6 


24 . 




MZ 


BBIT f STLA8L 


655 


6 


25 




B 


LABRTN 


656 


6 


26 


* 






657 


6 


27 


* UNPROCESSED LABEL OF LITERAL 


658 


6 


28 


# 






659 


6 


29 


SETSWL 


BCE 


LABRTN, LBLHC,$ 


660 


6 


30 




MCW 


«li',LITRSW 


661 


6 


31 




B 


LABRTN 


662 


6 


32 


• 






663 


6 


33 


* STORE LABEL IN TABLE 


664 


6 


34 


# 






665 


6 


35 


STORE 


LCA 


FNCTN, SYMBOL 


666 


6 


36 




LCA 


HOLDAD 


667 


6 


37 


MRKPRC 


MZ 


AB8IT,STLABL 


668 


6 


38 






• i * « » *-»r» f t , 

* 1 * fKKUUdH 


669 


6 


39 


LABRTN 


B 


xxxx 


670 


6 


40 


» 






671 


6 


41 


♦ COUBLY DEFINED LABEL 


672 


6 


42 


* 






673 


6 


43 


DBLDEF 


BCE 


STORE, ADDHO, 


674 


6 


44 




MZ 


BBIT,STLA6L 


675 


6 


45 




BCE 


LITRAL, TYPE,/ 


676 


6 


46 




B 


LABRTN 


677 


6 


47 


* 






678 


6 


48 


* DOUBLY DEFINED LITERAL 


679 


6 


49 


• 






680 


6 


50 


LITRAL 


BWZ 


LABRTN, STB0P,B 


681 


6 


51 




MCW 


M STYPE 


682 


6 


52 




S 


COUNT, ORGCTR 


683 


6 


53 




S 


COUNT, NOWCTR 


684 


6 


54 




B 


LABRTN 


685 


6 


55 


• 






686 


6 


56 


* SET \ 


JP LABEL + ADDRESS 



VERSION 3 


3752L 




SFX CT 


LOCN 


INSTRUCTION 


8 


1165 


B S98 Y64 1 


8 


1173 


B S69 Y63 



PAGE 



13 



4 1294 B 000 



74 
75 



7 


1181 


M Y93 L94 


75 


7 


1188 


A Y93 L93 


75 


8 


1195 


8 S50 075 / 


75 


4 


1203 


B S94 


75 



8 


1207 


B 


/81 


008 


$ 


76 


4 


1215 


B 


T58 






76 


4 


1219 


8 


W29 






76 


8 


1223 


B 


/81 


Y64 





76 


8 


1231 


B 


/81 


M-0 




76 


7 


1239 


Y 


112 


002 




76 


4 


1246 


B 


S94 






77 


8 


1250 


B 


S94 


008 


$ 


77 


7 


1258 


M 


Z01 


Y61 




77 


4 


1265 


B 


S94 






77 



7 


1269 


L 


LOS 


M-9 


77 


4 


1276 


L 


Z12 




77 


7 


1280 


Y 


113 


002 


78 


t 


J. .CO J 


u 


i 7,5 




"TO 



78 



8 


1298 


B S69 M-0 


78 


7 


1306 


Y 112 002 


78 


8 


1313 


B T25 075 / 


79 


4 


1321 


B $94 


79 



8 


1325 


V S94 004 B 


79 


7 


1333 


M Z05 075 


79 


7 


1340 


S 007 Y53 


79 


7 


1347 


S 007 Y48 


80 


4 


1354 


B S94 


80 



1401 AUT0C0CER-PASS 5 MAIN LIME 



-VERSION 3 



3752L 



PAGE 



14 



SEQ 


PG 


LIN 


LABEL OP 


OPERANDS 


687 


6 


57 


* FOR TABLE 


SEARCH 


688 


6 


58 


* 




689 


6 


59 


DQLABL SBR 


DGLA8R+003 


690 


6 


60 


MCW 


LABEL, FNCTN 


691 


6 


61 


MCW 


CNVLAB,ARGUMT=003 


692 


6 


62 


SETFUN BCE 


*+0G5, FNCTN* 


693 


6 


63 


B 


*+008 


694 


6 


64 


MCW 


SFXCTR, FNCTN 


695 


6 


65 


MCW 


LA8A0D*Xi»H0LDAD=Q04 


696 


6 


66 


BCE 


DOINDX, HGADD+X1»0 


697 


6 


67 


MZ 


ABIT,HGLDAD~003 


698 


6 


68 


DOINDX MN 


INDFTR,*+C04 


699 


6 


69 


MZ 


Z0NE,HQLDAD-001 


700 


6 


70 


OOLABR B 


XXXX 


701 


6 


71 


* 




702 


6 


72 


* PROCESS A 


OPERAND OF ORIGIN + E 


703 


6 


73 


* 




704 


6 


74 


SETAOP SBR 


AOPRTN+003 


705 


6 


75 


MCW 


♦BRSRH, DQLABR+003 


706 


6 


76 


MCW 


AOPER, FNCTN 


707 


6 


77 


MCW 


AOP,ARGUMT 


708 


6 


78 


B 


SETFUN 


709 


6 


79 


BRSRH B 


SEARCH 


710 


6 


80 


BCE 


ADDBNK, D8LSW,i 


711 


6 


81 


BCE 


STRBNK,SPCSV«,0 


712 


6 


82 


ACPRTN B 


XXXX 


713 


6 


83 


* 




714 


6 


84 


* LABEL NOT 


IN TABLE, STORE 


715 


6 


85 


* WITH BLANK ADDRESS 


716 


6 


86 


* 




717 


6 


87 


STR8NK LCA 


FNCTN, SYMBOL 


718 


6 


88 


LCA 


• i 


719 


6 


89 


8 


AOPRTN 


720 


6 


90 


* 




721 


6 


91 


* RETRIEVE VALUE FROM TABLE 


722 


6 


92 


* 




723 


6 


93 


ADDBNK BCE 


AOPRTN,ADCHG, 


724 


6 


94 


MCW 


•ISORGSW 


725 


6 


95 


BWZ 


*+5,LBLREF,2 


1 26 


6 


96 


B 


»+8 


727 


6 


97 


MZ 


ABIT,LBLREF 


728 


6 


98 


MCW 


ADDLO,LABADC 


729 


6 


99 


BCE 


A0PROC,LA8ACD-3,< 


730 


7 


00 


BWZ 


*+008,LABADC-003,2 


731 


7 


01 


MCW 


«1*,HGADD 


732 


7 


02 


BCE 


AOPRTN, TYPE, 


733 


7 


03 


* 




734 


7 


04 


* ADD CHARACTER ADJUSTMENT FOR EQ 


735 


7 


05 


* 




736 


7 


06 


MZ 


LA8ADD-001,SAVEZN=00 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


1358 


H 


U34 




80 


7 


1362 


M 


013 


LOS 


80 


7 


1369 


M 


056 


Z08 


80 


8 


1376 


B 


T88 


LOS 


80 


4 


1384 


B 


T95 




81 


7 


1388 


M 


L23 


LOS 


81 


7 


1395 


M 


0W1 


Z12 


81 


8 


1402 


B 


U17 


0V7 


81 


7 


1410 


Y 


111 


Z09 


81 


7 


1417 


D 


Y69 


U27 


82 


7 


1424 


Y 


113 


Zll 


82 


4 


1431 


B 


000 




82 



4 


1435 


H U87 


82 


7 


1439 


M Z15 U34 


82 


7 


1446 


M 022 LOS 


82 


7 


1453 


M 070 Z08 


83 


4 


1460 


B T76 


83 


4 


1464 


B W29 


83 


8 


1468 


B V03 Y64 1 


83 


8 


1476 


B U88 Y63 


83 


4 


1484 


B 000 


83 



7 1488 L LOS M-9 



1499 B U84 



84 
84 
84 



8 


1503 


B 


U84 


M-0 




84 


7 


1511 


M 


Y93 


Y66 




84 


8 


1518 


V 


V30 


M-l 


2 


84 


4 


1526 


B 


V37 






85 


7 


1530 


Y 


111 


M-l 




85 


7 


1537 


M 


M-3 


061 




85 


8 


1544 


B 


W18 


058 


( 


85 


8 


1552 


V 


V67 


058 


2 


85 


7 


1560 


M 


Y93 


057 




86 


8 


1567 


8 


U84 


075 





86 



1575 Y 060 Z20 



86 



1401 AUTGCOCER-PASS 5 MAIN LINE 



•VERSION 3 



37521- 



PAGE 



15 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


737 


7 


07 






A 


AOPADJ,LABACD 


738 


7 


08 






HZ 


SAVEZN,LAEACD-001 


739 


7 


09 






BCE 


AOPROCAINDEX, 


740 


7 


10 






MN 


INDFTR,*+C04 


741 


7 


11 






VI 


Z0N£,LABADD-001 


742 


7 


12 


ACPROC 


MZ 


ABBIT*STAOP 


743 


7 


13 






B 


AOPRTN 


744 


7 


14 


* 








745 


7 


15 


* 


TABLE SEARCH 


746 


7 


16 


* 








747 


7 


17 


SEARCH 


SBR 


RETURN+003 


748 


7 


18 






MCW 


DBLSW+OOltDBLSW 


749 


7 


19 






MCW 


TABMAX,MAXADD 


750 


7 


20 






MCW 


ARGUMT,XR2 


751 


7 


21 






MCW 


SERCHS,MAXSER 


752 


7 


22 


TBLSRH 


C 


FNCTN,SYMBOL 


753 


7 


23 






BE 


SETDBL 


754 


7 


24 






BCE 


RETURN, SYMHC, 


755 


7 


25 


BUMP 


A 


•010', XR2 


756 


7 


26 






S 


•1SMAXSER 


757 


7 


27 






8M 


SETSPC, MAXSER 


758 


7 


28 






C 


XR2,MAXAD0 


759 


7 


29 






BU 


TBLSRH 


760 


7 


30 






BCE 


SETSPC, WRAPSW,1 


761 


7 


31 






MCW 


•1SWRAPSW 


762 


7 


32 






MCW 


ARGUMT.MAXACO 


763 


7 


33 






S 


XR2+001 


764 


7 


34 






B 


TBLSRH 


765 


7 


35 


* 








766 


7 


36 


• 


LABEL IN 


TABLE 


767 


7 


37 


* 








768 


7 


38 


;>c f Ddl 


*4 *+ X i 


* * a r\n t ** * i 

' L ' fyOLOM 


769 


7 


39 






B 


RETURN 


770 


7 


40 


• 








771 


7 


41 


* 


SPACE AVAILABLE 


772 


7 


42 


* 








773 


7 


43 


SETSPC 


MCW 


HSSPCSW 


774 


7 


£^4q 


RETURN 


B 


XXXX 


775 


7 


45 


* 








776 


7 


46 


* 


INPUT/OUTPUT - PASS C 


777 


7 


47 


* 








778 


7 


48 


WRITE 


WT 


COUTPT,TPAREA 


779 


7 


49 






NOP 


XXXX 


780 


7 


50 






BER 


TPERR 


781 


7 


51 


BRANCH 


NOP 


FINAL 


782 


7 


52 


READ 


S 


HOLDA 


783 


7 


53 






RT 


CINPUT,TPAREA 


784 


7 


54 






B 


CHKLGT 


785 


7 


55 






BER 


TPERR 


786 


7 


56 






B 


NXTREC 



SFX CT LOCN INSTRUCTION TYPE CARD 



86 
86 
87 
87 
87 
87 
87 



7 


1582 


A 


026 


061 


7 


1589 


Y 


Z20 


060 


8 


1596 


B 


wis 


027 


7 


1604 





Y69 


W14 


7 


1611 


Y 


113 


060 


7 


1618 


Y 


113 


001 


4 


1625 


B 


U84 





4 


1629 


H 


X66 




87 


7 


1633 


M 


Y65 


Y64 


88 


7 


1640 


M 


Lll 


L14 


88 


7 


1647 


M 


Z08 


094 


88 


7 


1654 


M 


L99 


L22 


88 


7 


1661 


C 


LOS 


M-9 


88 


5 


1668 


B 


X45 


S 


89 


8 


1673 


B 


X63 


M-4 


89 


7 


1681 


A 


Z23 


094 


89 


7 


1688 


S 


Y93 


L22 


89 


8 


1695 


V 


X56 


L22 K 


89 


7 


1703 


C 


094 


L14 


90 


5 


1710 


B 


W61 


/ 


90 


8 


1715 


B 


X56 


Y62 1 


90 


7 


1723 


M 


Y93 


Y62 


90 


7 


1730 


M 


Z08 


L14 


90 


4 


1737 


S 


095 




90 


4 


1741 


8 


W61 




91 



1752 B X63 



7 1756 
4 1763 



M Y93 Y63 
B 000 



71 

91 



91 
91 



8 


1767 


M (U6 118 W 


91 


4 


1775 


N 000 


91 


5 


1779 


B -04 L 


92 


4 


1784 


N Y73 


92 


4 


1788 


S L31 


92 


8 


1792 


M (U5 118 R 


92 


4 


1800 


B K08 


92 


5 


1804 


6 -04 L 


92 


4 


1809 


8 Z37 


92 



1401 AUTOCODER-PASS 5 MAIM LINE 



-VERSION 3 



37521- 



PAGE 



16 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


787 


7 


57 


* 






788 


7 


58 


♦ CLEAR TABLE AREA 


789 


7 


59 


* 






790 


7 


60 


CLRTAB 


NCW 


CLRMAX,CLEAR+003 


791 


7 


61 


CLEAR 


CS 


XXXX 


792 


7 


62 




SBR 


CLEAR+003 


793 


7 


63 




C 


CLEAR+003, CLRHIN 


794 


7 


64 




BU 


CLEAR 


795 


7 


65 




B 


READ 


796 


7 


66 


NGWCTR 


DCW 


+00000 


797 


7 


67 


ORGCTR 


DCW 


+00000 


798 


7 


68 


HGHCTR 


DCW 


+00000 


799 


7 


69 


ADDRSW 


DCW 


*0' 


800 


7 


70 


MAXSW 


DC 


•0» 


801 


7 


71 


LITRSW 


DC 


«0« 


802 


7 


72 


WRAPSW 


DCW 


•0« 


803 


7 


73 


SPCSW 


DC 


•O 1 


804 


7 


74 


DBLSW 


DC 


•0« 


805 


7 


75 




DC 


«o* 


806 


7 


76 


ORGSW 


DCW 


•O 1 


807 


7 


77 


ACTSW 


DCW 


•O 1 


808 


7 


78 


DASW 


DCW 


»0« 


809 


7 


79 


INDFTR 


DCW 


•o» 


810 


7 


80 


DSAPUT 


DSA 


PUT 


811 


7 


81 


• 






812 


7 


82 


* END OF PASS C, GET PASS D 


813 


7 


83 


* 






814 


7 


84 


FINAL 


WTM 


COUTPT 


815 


7 


85 




RWD 


CINPUT 


816 


7 


86 




RWD 


COUTPT 


817 


7 


87 




B 


RDPSSD 


OAO 


7 


88 
490 




l_ 1 UHO 
DCW 


»0« 

*1« 

«005» 

+AOPOR 

•ll" 

+00 

•B' 

M • 






691 


ARGUMT 




=03 






695 


HGLCAD 




=04 






705 






+BRSRH 
i t 






736 


SAVE2N 




=01 
'010* 


819 


7 


89 


ENDOFC 


DCW 


t • 


820 


7 


90 




XFR 


LIBRN 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 


1813 


M 


K99 


Y23 


93 


4 


1820 


/ 


000 




93 


4 


1824 


H 


Y23 




93 


7 


1828 


C 


Y23 


L02 


93 


5 


1835 


B 


Y20 


/ 


93 


4 


1840 


B 


X88 




93 


5 


1848 








93 


5 


1853 








94 


5 


1858 








94 


1 


1859 








94 


1 


1860 








94 


1 


1861 








94 


1 


1862 








94 


1 


1863 








94 


1 


1864 








94 


1 


1865 








94 


1 


1866 








94 


1 


1867 








94 


1 


1868 








94 


1 


1869 








95 


3 


1872 


m 




95 



5 


1873 


U 


(U6 M 




95 


5 


1878 


U 


*U5 R 




95 


5 


1883 


U 


CU6 R 




95 


4 


1888 


B 


K47 




95 






JLO>£. 






1 


1892 






LIT 


95 


1 


1893 






LIT 


96 


3 


1896 






LIT 


96 


3 


1899 


536 


ADCON 


96 


2 


1901 






LIT 


96 


2 


1903 






LIT 


96 


1 


1904 






LIT 


96 


1 


1905 






LIT 


96 


3 


1908 






AREA 


97 


4 


1912 






AREA 


97 


3 


1915 


U64 


ADCON 


97 


4 


1919 






LIT 


97 


1 


1920 






AREA 


97 


3 


1923 






LIT 


97 


1 


1924 








97 






B 


000 




98 



1401 AUTOCODER-PASS 6-PROCESS OPERANDS 



-VERSION 3 



3761L 



PAGE 



17 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


821 


7 


91 




JOB 


1401 AUTOCODER- 


822 


7 


92 


* 






823 


7 


93 


91 


DCW 


'00000" 


824 


7 


94 


96 


DCW 


•00000* 


825 


7 


95 


101 


DCW 


•00000* 


826 


7 


96 


109 


DCW 


»2SKB« 


827 


7 


97 


113 


DCW 


•2SKB» 


828 


7 


98 




ORG 


ZONE+001 


829 


7 


99 


s 






830 


8 


00 


* DETERMINE 


RECORD TYPE 


831 


8 


01 


* 






832 


8 


02 




MCW 


•OSASTRSW 


833 


8 


03 




BM 


PUT,CARD+005 


834 


8 


04 




8CE 


PUT, TYPE, i 


835 


8 


05 




MN 


TYPE,TYPEA=001 


836 


8 


06 




BCE 


PRINST, TYPEA, 


837 


8 


07 




BCE 


PRDSA,TYPEA,2 


838 


8 


08 




BCE 


PRGEND*TYPEA,3 


839 


8 


09 




BCE 


PR0SFX,TYPEA,4 


840 


8 


10 




BCE 


0RGEQU,TYPEA,6 


841 


8 


11 




BCE 


0RGEQU,TYPEA,7 


842 


8 


12 




B 


PUT 


843 


8 


13 


* 






844 


8 


14 


* PROCESS INSTRUCTIONS 


845 


8 


15 


# 






846 


8 


16 


PRINST 


BW2 


SETAST,STADCR,2 


847 


8 


17 




B 


LOADDR 


848 


8 


18 


SETAST 


MCW 


•I'.ASTRSW 


849 


8 


19 


« 






850 


8 


20 


* SET > 


ASTERISK ADDRESS 


851 


8 


21 


* 






*•* r» ■*% 

03£ 


8 


0% *t 


LUAUUK 


ZA 


• i n i nn * c tr a r> r\ *% 


853 


8 


23 




A 


COUNT, ASTADO 


854 


8 


24 




S 


•ISASTADC 


855 


8 


25 


* 






856 


8 


26 


* TEST 


FOR 


A OPERAND 


857 


8 


27 


• 






858 


8 


28 




BCE 


PUT,C0UNT,1 


859 


8 


29 




BCE 


PUT,C0UNT,2 


860 


8 


30 




BWZ 


*+005,STA0P,2 


861 


8 


31 




B 


SEEBOP 


862 


8 


32 




8 


PROCOP 


863 


8 


33 


* 






864 


8 


34 


» TEST 


FOR 


B OPERAND 


865 


8 


35 


• 






866 


8 


36 


SEEBOP 


BCE 


PUT,C0UNT,4 


867 


8 


37 




BCE 


PUT, COUNT, 5 


868 


8 


38 




BWZ 


*+005,STBCP,2 


869 


8 


39 




B 


PUT 


870 


8 


40 




MCW 


•003*, XR3 



SFX CT LOCN INSTRUCTION TYPE CARD 



■VERSION 3 



5 0091 

5 0096 

5 0101 

4 0109 

4 0113 



0114 



101 
101 
101 
102 
102 



7 


0114 


M U32 U18 




102 


8 


0121 


V Z77 005 


K 


102 


8 


0129 


8 Z77 075 


i 


102 


7 


0137 


D 075 U33 




102 


8 


0144 


8 196 U33 




103 


8 


0152 


B 318 U33 


2 


103 


8 


0160 


8 446 U33 


3 


103 


8 


0168 


B S79 U33 


4 


103 


8 


0176 


B 489 U33 


6 


104 


8 


0184 


B 489 U33 


7 


104 


4 


0192 


B Z77 




104 



8 


0196 


V 208 003 2 


104 


4 


0204 


B 215 


104 


7 


0208 


M U34 U18 


104 



t 


0215 








1 f\C 


7 


0222 


A 


007 


U39 


105 


7 


0229 


S 


U34 


U39 


105 



8 


0236 


B 


Z77 007 1 


105 


8 


0244 


B 


Z77 007 2 


105 


8 


0252 


V 


264 001 2 


106 


4 


0260 


B 


268 


106 


4 


0264 


B 


578 


106 



8 


0268 


B 


Z77 


007 


4 


106 


8 


0276 


B 


Z77 


007 


5 


106 


8 


0284 


V 


296 


004 


2 


107 


4 


0292 


B 


Z77 






107 


7 


0296 


M 


U42 


099 




107 



1401 AUTOCODER-PASS 6-PROCESS OPERANDS 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


871 


8 


41 




MCW 


»011»»XR1 


872 


8 


42 




8 


PROCOP 


873 


8 


43 




B 


PUT 


874 


8 


44 


* 






875 


8 


45 


♦ PROCESS DSA AND ADCON 


876 


8 


46 


• 






877 


8 


47 


PRDSA 


BWZ 


»+005,STACDR,2 


878 


8 


48 




8 


TSTPRC 


879 


8 


49 




MCW 


»l»,ASTRSfc 


880 


8 


50 


SETDSA 


ZA 


LABADD,ASTACD 


881 


8 


51 




MCW 


»003«,XR3 


882 


8 


52 




MCW 


•011SXR1 


883 


8 


53 




BWZ 


*+005t STBCP.2 


884 


8 


54 




B 


PUT 


885 


8 


55 




B 


PROCOP 


886 


8 


56 




BWZ 


PUT,ST60P,2 


887 


8 


57 




BCE 


CMP16K,AINDEX»- 


888 


8 


58 


CGMPRS 


MCW 


+PUT,0PRTN+3 


889 


8 


59 




BCE 


PUT,A0P+1,< 


890 


8 


60 




B 


CNVTQ3 


891 


8 


61 


* 






892 


8 


62 


* GET 


16000 


COMPLEMENT 


893 


8 


63 


* 






894 


8 


64 


CMP16K 


MCW 


+16000, FNCTN-001 


895 


8 


65 




S 


H0LDAR,FNCTN-001 


896 


8 


66 




ZA 


FNCTN-001, HCLCAR=005 


897 


8 


67 




B 


COMPRS 


898 


8 


68 


TSTPRC 


BWZ 


SETDSA, STBOP, 2 


899 


8 


69 




B 


PUT 


900 


8 


70 


* 






901 


8 


71 


* PROCESS EX 


+ END 


902 


8 


72 


* 






903 


8 


73 


PROEND 


S 


ASTADD 


904 


8 


74 




BWZ 


*+005,STAGP,2 


905 


8 


75 




B 


♦+005 


906 


8 


76 




B 


PROCOP 


907 


8 


77 




BCE 


ENDOPN, TYPE, 3 


908 


8 


78 




B 


PUT 


909 


8 


79 


ENDOPN 


MCW 


•BSBRNCH2 


910 


8 


80 




B 


PUT 


911 


8 


81 


• 






912 


8 


82 


» PROCESS ORIGIN + EQUATE 


913 


8 


83 


* 






914 


8 


84 


ORGEQU 


BWZ 


*+005,STACP,2 


915 


8 


85 




B 


ORGOUT 


916 


8 


86 




BCE 


ORGOUT, AOPHC, 


917 


8 


87 




BWZ 


ORGOUT, AOPHC, 2 


918 


8 


88 




BCE 


ORGOUT, AOPHC* 


919 


8 


89 




BCE 


ORGOUT, AOPHC, ( 


920 


8 


90 




B 


PROCOP 



VERSION 3 


3761L 




SFX CT 


LOCN 


INSTRUCTI 


7 


0303 


M U45 089 


4 


0310 


B 578 


4 


0314 


B Z77 



PAGE 



18 



107 
107 
107 



8 


0318 


V 


330 


003 


2 


108 


4 


0326 


B 


434 






108 


7 


0330 


M 


U34 


U18 




108 


7 


0337 


♦ 


061 


U39 




108 


7 


0344 


M 


U42 


099 




108 


7 


0351 


M 


U45 


089 




109 


8 


0358 


V 


370 


004 


2 


109 


4 


0366 


B 


Z77 






109 


4 


0370 


B 


578 






109 


8 


0374 


V 


Z77 


004 


2 


109 


8 


0382 


B 


409 


027 


- 


109 


7 


0390 


« 


U48 


/78 




110 


8 


0397 


B 


Z77 


071 


i 


110 


4 


0405 


B 


#94 






110 



7 


0409 


M U53 L07 


110 


7 


0416 


S U58 L07 


110 


7 


0423 


+ L07 U58 


111 


4 


0430 


B 390 


111 


8 


0434 


V 337 004 2 


111 


4 


0442 


B Z77 


111 



4 


0446 


S U39 






ill 


8 


0450 


V 462 


001 


2 


111 


4 


0458 


B 466 






111 


4 


0462 


B 578 






112 


8 


0466 


B 478 


075 


3 


112 


4 


0474 


B Z77 






112 


7 


0478 


M U59 


X84 




112 


4 


0485 


B Z77 






112 



8 


0489 


V 501 001 


2 


112 


4 


0497 


B 574 




112 


8 


0501 


B 574 017 




113 


8 


0509 


V 574 017 


2 


113 


8 


0517 


B 574 017 


* 


113 


8 


0525 


B 574 017 


{ 


113 


4 


0533 


B 578 




113 



1401 AUTOCODER-PASS 6-PROCESS OPERANDS 



-VERSION 3 



3761L 



PAGE 



19 



SEQ 


PQ 


LIN 


LABEL 


OP 


OPERANDS 


921 


8 


91 






8WZ 


0RG0UT,STA0P f 2 


922 


8 


92 






MCW 


f OS ITERS* 


923 


8 


93 






BCE 


*+008»TYPEA,7 


924 


8 


94 






MZ 


BBISSTAOP 


925 


8 


95 






MCW 


HOLDAR,LABACD 


926 


8 


96 


ORGOUT 


B 


PUT 


927 


8 


97 


# 








928 


8 


98 


« 


PROCESS OPERAND SUB-ROUTINE 


929 


8 


99 


* 








930 


9 


00 


PRCCOP 


SBR 


OPRTN+003 


931 


9 


01 






BWZ 


*+0Q5,STACP+X3,2 


932 


9 


02 






B 


OPRTN 


933 


9 


03 






BCE 


SETZR0,AGPHC+X1, 


934 


9 


04 






BCE 


PERCNT,A0PHC+X1,( 


935 


9 


05 






bwz 


FL0AT,AQPH0+X1,2 


936 


9 


06 






BCE 


PR0ASSA0PHG+X1,* 


937 


9 


07 


• 








938 


9 


08 


* 


CONVERT SYMBOL TO TABLE ADDRESS 


939 


9 


09 


* 








940 


9 


10 


CNVSYM 


BCE 


*+005tAOP-002+X3, 


941 


9 


11 






8 


SETSYM 


942 


9 


12 






MCW 


AOPER+X1,W6AREA=006 


943 


9 


13 






BCE 


*+5»W6AR£A, 


944 


9 


14 






B 


«+8 


945 


9 


15 






MCW 


SFXCTR.W6AREA 


946 


9 


16 






ZA 


+2tHOLD2=002 


947 


9 


17 






ZA 


W6AREA-002,H0LD4=C04 


948 


9 


18 






A 


W6AR£A,H0LD4 


949 


9 


19 






A 


W6AREA,HOLD4-002 


950 


9 


20 






MZ 


N0BIT,H0LC4 


951 


9 


21 






ZA 


FACTOR, H0LD7 


952 


« 

^ 


22 


un\s* n 

n r i ur 


Ufcl 

nn 




953 


9 


23 






ZA 




954 


9 


24 


MULT 


BCE 


NXTDGT,H0LD1,+ 


955 


9 


25 






A 


H0LD4,H0LD7-002 


956 


9 


26 






S 


+1,H0LD1 


957 


9 


27 






B 


MULT 


958 


9 


28 


NXTCGT 


S 


+1»H0LD2 


959 


9 


29 






BWZ 


MPYLP,H0LD2,B 


960 


9 


30 






MCW 


•00QSA0P + X3 


961 


9 


31 






BAV 


*+001 


962 


9 


32 


LCCP1 


A 


+96,H0LD7-0C5 


963 


9 


33 






BAV 


L00P1 


964 


9 


34 






MZ 


HOLD7-006,AGP+X3 


965 


9 


35 






MCW 


HOLD 7-003 


966 


9 


36 






MM 


H0LD7-005,#+004 


967 


9 


37 






MZ 


Z0NE2,A0P-0C2+X3 


968 


9 


38 


* 








969 


9 


39 


• 


SYMBOLIC 


OPERAND 


970 


9 


40 


* 









SFX CT LOCN INSTRUCTION TYPE CARD 



8 


0537 


V 574 001 2 


114 


7 


0545 


M U32 U28 


114 


8 


0552 


B 567 033 7 


114 


7 


0560 


Y 112 001 


114 


7 


0567 


M U58 061 


114 


4 


0574 


B Z77 


115 



4 


0578 


H /78 




115 


8 


0582 


V 594 0+1 


2 


115 


4 


0590 


B /75 




115 


8 


0594 


B 942 0/7 




115 


8 


0602 


B 950 0/7 


i 


115 


8 


0610 


V S21 0/7 


2 


116 


8 


0618 


B /90 0/7 


• 


116 



8 


0626 


B 


638 


0F8 


116 


4 


0634 


8 


804 




116 


7 


0638 


M 


0S2 


U65 


116 


8 


0645 


B 


657 


U65 


117 


4 


0653 


B 


664 




117 


7 


0657 


M 


L23 


U65 


117 


7 


0664 


+ 


U66 


U68 


117 


7 


0671 


+ 


U63 


U72 


117 


7 


0678 


A 


U65 


U72 


118 


7 


0685 


A 


U65 


U70 


118 


7 


0692 


Y 


110 


U72 


118 


7 


0699 


+ 


L88 


U26 


118 


f 


U I UO 








no 


1 


0713 


+ 






118 


8 


0714 


B 


740 


U27 + 


119 


7 


0722 


A 


U72 


U24 


119 


7 


0729 


S 


U73 


U27 


119 


4 


0736 


B 


714 




119 


7 


0740 


S 


U73 


U68 


119 


8 


0747 


V 


706 


U68 B 


120 


7 


0755 


M 


U76 


OGO 


120 


5 


0762 


B 


767 


Z 


120 


7 


0767 


A 


U78 


U21 


120 


5 


0774 


B 


767 


Z 


120 


7 


0779 


Y 


U20 


OGO 


120 


4 


0786 


M 


U23 




121 


7 


0790 


D 


U21 


800 


121 


7 


0797 


Y 


109 


0F8 


121 



1401 AUTOCOCER-PASS 6-PROCESS OPERANDS 



-VERSION 3 



3761L 



PAGE 20 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


971 


9 


41 


SETSYH 


MCW 


A0P£R+X1,FNCTN 


972 


9 


42 






BCE 


*+005,FNCTN, 


973 


9 


43 






B 


*+0Q8 


974 


9 


44 






MCW 


SFXCTR,FNCTN 


975 


9 


45 






HCW 


TABMAX»MAXACD 


976 


9 


46 






MCW 


»0*,SWICH1 


977 


9 


47 






MCW 


A0P+X3,XR2 


978 


9 


48 






MCW 


SERCHS,MAXSER 


979 


9 


49 


« 








980 


9 


50 


» 


TABLE SEARCH 


981 


9 


51 


* 








982 


9 


52 


SRHLOP 


c 


FNCTN, SYMBOL 


983 


9 


53 






BE 


RECALL 


984 


9 


54 






BCE 


UNOEFfSYMHO, 


985 


9 


55 


BUMPER 


A 


«010«»XR2 


986 


9 


56 






S 


•1SMAXSER 


987 


9 


57 






BM 


UNDEF f MAXSER 


988 


9 


58 






C 


XR2,MAXADC 


989 


9 


59 






BU 


SRHLOP 


990 


9 


60 






BCE 


UNDEF,SWICH1,1 


991 


9 


61 






MCW 


•1SSWICH1 


992 


9 


62 






MCW 


A0P+X3tMAXACD 


993 


9 


63 






S 


XR2+001 


994 


9 


64 






B 


SRHLOP 


995 


9 


65 


* 








996 


9 


66 


* 


BLANK OPERAND 


997 


9 


67 


* 








998 


9 


68 


SETZRO 


S 


HOLDAR 


999 


9 


69 






B 


CHRADJ 


1000 


9 


70 


• 








1001 


9 


71 


• 


PERCENT OPERAND 


1002 


9 


72 


# 








1003 


9 


73 


PERCNT 


MCW 


A0PER-003+Xl,A0P+X 


1004 


9 


74 






B 


MARK 


1005 


9 


75 


• 








1006 


9 


76 


* 


UNDEFINED 


OPERAND 


1007 


9 


77 


* 








1008 


9 


78 


UNCEF 


BCE 


OPRTN, ITERSW,0 


1009 


9 


79 






MCW 


'===*, A0P+X3 


1010 


9 


80 






8 


OPRTN 


1011 


9 


81 


* 








1012 


9 


82 


* 


RETRIEVE 


VALUE FROM TABLE 


1013 


9 


83 


* 








1014 


9 


84 


RECALL 


BCE 


UNDEF,ADDHO f 


1015 


9 


85 






BWZ 


*+5 f LBLREF,2 


1016 


9 


86 






B 


*+8 


1017 


9 


87 






MZ 


ABIT.LBLREF 


1018 


9 


88 






MCW 


ADDLOtHOLDAR 


1019 


9 


89 






MCW 


•0* 


1020 


9 


90 






BCE 


I0AD0,H0LCAR-003,( 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 


0804 


M 


0S2 


LOS 


121 


8 


0811 


B 


823 


LOS 


121 


4 


0819 


B 


830 




121 


7 


0823 


M 


L23 


LOS 


122 


7 


0830 


M 


Lll 


L14 


122 


7 


0837 


M 


U32 


U19 


122 


7 


0844 


M 


060 


094 


122 


7 


0851 


M 


L99 


L22 


122 


7 


0858 


C 


LOS 


M-9 


123 


5 


0865 


B 


980 


S 


123 


8 


0870 


B 


961 


M-4 


123 


7 


0878 


A 


U81 


094 


123 


7 


0885 


S 


U34 


L22 


123 


8 


0892 


V 


961 


L22 K 


124 


7 


0900 


c 


094 


L14 


124 


5 


0907 


B 


858 


/ 


124 


8 


0912 


B 


961 


U19 1 


124 


7 


0920 


M 


U34 


U19 


124 


7 


0927 


M 


OGO 


L14 


125 


4 


0934 


S 


095 




125 


4 


0938 


B 


858 




125 



4 0942 
4 0946 



S U58 
B *49 



125 
125 



7 


0950 


M 0/9 OGO 


125 


4 


0957 


B /68 


125 



8 


0961 


B 


/75 


U28 





126 


7 


0969 


M 


U84 


OGO 




126 


4 


0976 


B 


/75 






126 


8 


0980 


B 


961 


M-0 




126 


8 


0988 


V 


*00 


M-l 


2 


126 


4 


0996 


B 


*07 






126 


7 


1000 


Y 


111 


M-l 




127 


7 


1007 


M 


M-3 


U58 




127 


4 


1014 


M 


U32 






127 


8 


1018 


B 


/79 


U55 


( 


127 



1401 AUTOCODER-PASS 6-PRGCESS OPERANDS 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1021 


9 


91 




BWZ 


*+008tHOLCAR~003t2 


1022 


9 


92 




MCW 


*l , ,HGLDAR-004 


1023 


9 


93 




8CE 


TSTCNV, TYPEA.6 


1024 


9 


94 


* 






1025 


9 


95 


* ADO i 


CHARACTER ADJUSTMENT 


1026 


9 


96 


* 






1027 


9 


97 


CHRADJ 


MZ 


HOLDAR-001 , h!OL0ZN=001 


1028 


9 


98 




8CE 


TSTCNV, AOPAOJ-002+X1,X 


1029 


9 


99 




A 


A0PADJ+X1,HCLDAR 


1030 


10 


00 




MZ 


HOLDZN,HOLDAR-001 


1031 


10 


01 


TSTCNV 


BM 


MARK, TYPE 


1032 


10 


02 




8CE 


MARK,TYPEA,2 


1033 


10 


03 


» 






1034 


10 


04 


* CONVERT FIVE DIGIT ADDRESS TG THRE 


1035 


10 


05 


« 






1036 


10 


06 


CNVT03 


8AV 


*+001 


1037 


10 


07 




A 


•96»,HOLDAR~003 


1038 


10 


08 




BAV 


CNVTO3+005 


1039 


10 


09 




MZ 


H0LDAR-Q04, HOLDAR 


1040 


10 


10 




MN 


H0LDAR-Q03,«+004 


1041 


10 


11 




MZ 


Z0NE2,H0LDAR-002 


1042 


10 


12 




MZ 


H0LDZN,H0LDAR-001 


1043 


10 


13 




BCE 


STRAD0»AINDEX+X1, 


1044 


10 


14 




MN 


AINDEX+Xltft+004 


1045 


10 


15 




MZ 


Z0NE,H0LDAR-001 


1046 


10 


16 


STRADD 


MCW 


HOLDAR, A0P+X3 


1047 


10 


17 


• 






1048 


10 


18 


* HARK 


OPERAND PROCESSED 


1049 


10 


19 


* 






1050 


10 


20 


MARK 


MZ 


ABBIT,STACP+X3 


1051 


10 


21 


OPRTN 


B 


XXXX 


1052 


10 


22 


♦ 






1053 


10 


23 


* I/O 


ADDRESS IN TABLE 


1054 


10 


24 


» 






1055 


10 


25 


IOADD 


MCW 


HOLDAR-001, A0P+X3 


1056 


10 


26 




B 


MARK 


1057 


10 


27 


* 






1058 


10 


28 


* ASTERISK 


OPERAND 


1059 


10 


29 


« 






1060 


10 


30 


PRGAST 


BCE 


»+5,A0PER+Xl, 


1061 


10 


31 




B 


CNVSYM 


1062 


10 


32 




BCE 


OPRTN, ASTRSW,1 


1063 


10 


33 




MCW 


ASTADD, HOLDAR 


1064 


10 


34 




B 


CHRADJ 


1065 


10 


35 


• 






1066 


10 


36 


* ACTUAL OPERAND - FLOAT TO 5 DIGITS 


1067 


10 


37 


• 






1068 


10 


38 


FLOAT 


BCE 


CNVSYM, AOPHO+X1,= 


1069 


10 


39 




BCE 


CNVSYM, A0PHC+X1,' 


1070 


10 


40 




BWZ 


*+0G5,AGP£R-004+Xl,2 



VERSION 3 


3761L 




PAGE 21 


^F"" /\ I* 1 


LOCN 


INSTRUCTION 


TYPE CARD 


8 


1026 


V +41 U55 2 


127 


7 


1034 


M U34 U54 


128 


8 


1041 


B *78 U33 6 


128 



DIGIT ADDR 



7 


1049 


Y U57 U85 




123 


8 


1056 


B *78 0S4 


X 


128 


7 


1064 


A 0S6 U58 




128 


7 


1071 


Y U85 U57 




129 


8 


1078 


V /68 075 


K 


129 


8 


1086 


B /68 U33 


2 


129 



5 


1094 


B 


*99 


Z 


129 


7 


1099 


A 


U87 


U55 


129 


5 


1106 


B 


♦99 


Z 


130 


7 


1111 


Y 


U54 


U58 


130 


7 


1118 


D 


U55 


/28 


130 


7 


1125 


Y 


109 


U56 


130 


7 


1132 


Y 


U85 


U57 


130 


8 


1139 


B 


/6i 


0S7 


131 


7 


1147 


D 


0S7 


/57 


131 


7 


1154 


Y 


113 


U57 


131 


7 


1161 


M 


U58 


OGO 


131 



7 1168 
4 1175 



Y 113 0+1 

B 000 



131 
132 



7 


1179 


M U57 OGO 


132 


4 


1186 


B /68 


132 



8 


1190 


B S02 


0S2 


132 


4 


1198 


B 626 




132 


8 


1202 


B /75 


U18 1 


132 


7 


1210 


M U39 


U58 


133 


4 


1217 


8 *49 




133 



8 


1221 


B 626 


0/7 = 


133 


8 


1229 


B 626 


0/7 • 


133 


8 


1237 


V S49 


0/8 2 


133 



1401 AUTOCODER-PASS 6-PROCESS OPERANDS 



-VERSION 3 



3761L 



PAGE 



22 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1071 


10 


41 




B 


CNVSYM 


1072 


10 


42 




ZA 


A0PER-0G1+X1,H0LDAR 


1073 


10 


43 


REFLOT 


BCE 


*+005,H0LCAR f + 


1074 


10 


44 




B 


CHRADJ 


1075 


10 


45 




ZA 


H0LDAR-001,H0L0AR 


1076 


10 


46 




B 


REFLOT 


1077 


10 


47 


* 






1078 


10 


48 


* PROCESS SUFFIX 


1079 


10 


49 


* 






1080 


10 


50 


PRGSFX 


MCW 


AOPHO,SFXCTR 


1081 


10 


51 




8 


PUT 


1082 


10 


52 


* 






1083 


10 


53 


* INITIALIZE 


PASS C 


1084 


10 


54 


* 






1085 


10 


55 


PASSD 


SW 


GPMRK2-1 


1086 


10 


56 




RTW 


DINPUT,BYPRC 


1087 


10 


57 




CW 


GPMRK2-1 


1088 


10 


58 




cs 


CARD+080 


1089 


10 


59 




$W 


CARO+001,CARO+006 


1090 


10 


60 




sw 


CARD+017,CARD+024 


1091 


10 


61 




SW 


CARD+Q28»CARD+035 


1092 


10 


62 




sw 


CARD+057,CARD+062 


1093 


10 


63 




sw 


CARD+068,CARD+071 


1094 


10 


64 




MCW 


BUMPOP, BUMPER 


1095 


10 


65 




MCW 


4 6STPHALT+4 


1096 


10 


66 




MCW 


, 6 , ,TPHLT2+4 


1097 


10 


67 




MCW 


•6STPHLT3+4 


1098 


10 


68 




MCW 


TPAD,WRITE2+006 


1099 


10 


69 




MCW 


TPAD,READ2+010 


1100 


10 


70 




MCW 


• '.SFXCTR 


1101 


10 


71 


• 






1102 


10 


72 


* TEST 




-r -r- f n * -r » *"» *• 
i 1 CKH 1 lUh 


1103 


10 


73 


* 






1104 


10 


74 




BCE 


LSTITR, PROCSW,0 


1105 


10 


75 




BCE 




1106 


10 


76 




B 


READ2 


1107 


10 


77 


LSTITR 


MCW 


•IS ITERSk 


1108 


10 


78 




B 


READ2 


1109 


10 


79 


ASTRSW 


DCW 





1110 


10 


80 


SWiCHl 


DCW 


•0' 


1111 


10 


81 


H0L07 


DCW 


f 9 


1112 


10 


82 


H0LD1 


DCW 


+0 


1113 


10 


83 


ITERSW 


DCW 


•0' 


1114 


10 


84 


8YPRD 


DCW 


1 t 


1115 


10 


85 


GPMRK2 


DC 


t • 


1116 


10 


86 


SSGP 


EQU 


1900 


1117 


10 


87 




LTORG 
DCW 


* 
•O 1 






835 


TYPEA 




=01 

•1» 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


1245 


B 626 


133 


7 


1249 


4- 0S1 U58 


134 


8 


1256 


8 S68 U58 + 


134 


4 


1264 


B *49 


134 


7 


1268 


+ U57 U58 


134 


4 


1275 


B S56 


134 



1279 


M 017 L23 


134 


1286 


B Z77 


135 



4 


1290 


t 


U30 




135 


8 


1294 


L 


CU6 


U29 R 


135 


4 


1302 


) 


U30 




135 


4 


1306 


/ 


080 




135 


7 


1310 


* 


001 


006 


135 


7 


1317 


9 


017 


024 


135 


7 


1324 


t 


028 


035 


136 


7 


1331 


f 


057 


062 


136 


7 


1338 


* 


068 


071 


136 


7 


1345 


M 


L27 


878 


136 


7 


1352 


M 


U88 


J15 


136 


7 


1359 


M 


U88 


KOI 


137 


7 


1366 


M 


U88 


J42 


137 


7 


1373 


M 


L34 


X73 


137 


7 


1380 


M 


L34 


X98 


137 


7 


1387 


M 


U89 


L23 


137 



8 


1394 


B 


U07 


L95 





138 


1 


1402 


8 








138 


4 


1403 


B 


X88 






138 


7 


1407 


M 


U34 


U28 




138 


4 


1414 


B 


X88 






138 


1 


1418 










138 


1 


1419 










138 


7 


1426 










139 


1 


1427 










139 


1 


1428 










139 


1 


1429 










139 


2 


1431 

1900 










139 






1432 








1 


1432 








LIT 


139 


1 


1433 








AREA 


139 


1 


1434 








LIT 


139 



1401 AUTOCGCER-PASS 6-PROCESS OPERANDS 



■VERSION 3 



37611- 



PAGE 23 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 






852 


ASTADD 




=05 

»003» 

•Oil* 






888 






+ PUT 

+16000 






896 


HOLDAR 




=05 

•B» 
=06 






942 


W6AREA 














+ 2 






946 


HOL02 




=02 






947 


HCLC4 




=04 
+ 1 

•000* 
+96 
«01C« 
• === • 




] 


L027 


HOLDZN 




=01 

»96« 

•6* 
i t 


1118 


10 


88 


* 






1119 


10 


89 


* INPUT/OUTPUT - PASS C 


1120 


10 


90 


* 






1121 


10 


91 




ORG 


WRITE 


1122 


10 


92 


NRITE2 


WT 


DOUTPT,TPAREA 


1123 


10 


93 




NOP 


XXXX 


1124 


10 


94 




BER 


TPERR 


1125 


10 


95 


BRNCH2 


NOP 


FINALD 


1126 


10 


96 


READ2 


S 


HOLDA 


1127 


10 


97 




RT 


DINPUT,TPAREA 


1128 


10 


98 




B 


CHKLGT 


1129 


10 


99 




BER 


TPERR 


1130 


11 


00 




6 


NXTREC 


1131 


11 


01 


* 






1132 


11 


02 


FINALO 


WTM 


DOUTPT 


X m >*r mI 


11 


03 




RWD 


DINPUT 


1134 


11 


04 




RtoD 


DOUTPT 


1135 


11 


05 




RTW 


SYSTPE.333 


1136 


11 


06 




NOP 


XXXX 


1137 


11 


07 




BER 


TPERR 


1138 


11 


08 




CW 


ENDOVL 


1139 


11 


09 




wcw 


BUMPOP»TSTLST 


114C 


11 


10 




MOW 


BUMPOP,NOT 


1141 


11 


11 




B 


TSTREF 


1142 


11 


12 




OCW 


t « 


1143 


11 


13 


ENOOFD 


DCW 


t t 


1144 


11 


14 




EX 


LIBRN 



SFX CT LOCN INSTRUCTION TYPE CARD 



5 


1439 


3 


1442 


3 


1445 


3 


1448 


5 


1453 


5 


1458 


1 


1459 


6 


1465 


1 


1466 


2 


1468 


4 


1472 


1 


1473 


3 


1476 


2 


1478 


3 


1481 


3 


1484 


1 


1485 


2 


1487 


1 


1488 


1 


1489 



Z77 



AREA 


140 


LIT 


140 


LIT 


140 


ADCON 


140 


LIT 


140 


AREA 


140 


LIT 


140 


AREA 


141 


LIT 


141 


AREA 


141 


AREA 


141 


LIT 


141 


LIT 


141 


LIT 


141 


LIT 


142 


LIT 


142 


AREA 


142 


LIT 


142 


LIT 


142 


LIT 


142 







1767 






8 


1767 


M 


IU5 


118 W 


143 


4 


1775 


N 


000 




143 


5 


1779 


8 


-04 


L 


143 


4 


1784 


N 


Y13 




143 


4 


1788 


S 


L31 




143 


8 


1792 


M 


<U6 


118 R 


143 


4 


1800 


8 


K08 




143 




1 £»#%/. 

tout 


D 


■*ut 




\ /. y. 


4 


1809 


B 


Z37 




144 


5 


1813 


U 


(U5 


M 


144 


5 


1818 


U 


<U6 


R 


144 


5 


1823 


U 


(U5 


R 


144 


8 


1828 


L 


(Ul 


333 R 


144 


4 


1836 


N 


000 




144 


5 


1840 


B 


-04 


L 


145 


4 


1845 


) 


S45 




145 


7 


1849 


M 


L27 


474 


145 


7 


1856 


M 


L27 


726 


145 


4 


1863 


B 


333 




145 


1 


1867 








145 


1 


1868 








145 






B 


000 




146 



1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 
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SEQ 


PG 


LIN 


LABEL 


Op 


OPERANDS 




1145 


11 


15 




JOB 


1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE 


1146 


11 


16 


* 








1147 


11 


17 




ORG 


333 




1148 


11 


18 


* 








1149 


11 


19 


* END l 


DF PASS D 




1150 


11 


20 


* 








1151 


11 


21 


* PRINT LIST 


OF UNREFERENCED LABELS 




1152 


11 


22 


* 








1153 


11 


23 


TSTREF 


CS 


0332 




1154 


11 


24 




CS 






1155 


11 


25 




S 


XR3 + 1 




1156 


11 


26 




S 






1157 


11 


27 




S 






1158 


11 


28 




SW 


HEADSW=001 




1159 


11 


29 


NXTLBL 


BCE 


TSTLST, SYHHC, 




1160 


11 


30 




BCE 


TSTLST, ADDHC, 




1161 


11 


31 




BCE 


LOZNG, SYMHO,) 




1162 


11 


32 




C 


SYMHG, *A» 




1163 


11 


33 




BH 


DOREF 




1164 


11 


34 




C 


SYMHQ,«Z» 




1165 


11 


35 




BL 


DOREF 




1166 


11 


36 




MN 


SYMH0,XR3 




1167 


11 


37 




BWZ 


SWTAB, SYMHO,B 




1168 


11 


38 




A 


•010SXR3 




1169 


11 


39 




BH 


SWTAB, SYMf-Q 




1170 


11 


40 




A 


•010',XR3 




1171 


11 


41 


SWTAB 


SW 


S0RTAB+X3 




1172 


11 


42 




S 


XR3+2 




1173 


11 


43 


DOREF 


BWZ 


*+5,LBLREF,2 




1174 


11 


44 




B 


TSTLST 




1175 


11 


45 




BW 


NEWPGE,HEADSW 




1176 


11 


46 


DONEXT 


CM 


HEAOSU 




1177 


11 


47 




8 


PRINT 




1178 


11 


48 




W 






1179 


11 


49 




CS 


216 




1130 


11 


50 


TSTLST 


A 


•010*, XR2 




1181 


11 


51 




C 


XR2.TABMAX 




1182 


11 


52 




BE 


DUMP 




1183 


11 


53 




BCV 


NEWPGE 




1184 


11 


54 




B 


NXTLBL 




1185 


11 


55 


NEWPGE 


CC 


1 




1186 


11 


56 




MCW 


•UNREFERENCED LABELS 1 ,219 




1187 


11 


57 




CC 


T 




1188 


11 


58 




w 






1189 


11 


59 




CS 


0219 




1190 


11 


60 




BW 


DONEXT, HEADSW 




1191 


11 


61 




B 


NXTLBL 




1192 


11 


62 


LOZNG 


SW 


LIST-1 




1193 


11 


63 




B 


DOREF 




1194 


11 


64 


* 









SFX CT LOCN INSTRUCTION TYPE CARD 



-VERSION 3 



0333 



4 


0333 


/ 


332 




149 


1 


0337 


/ 






149 


4 


0338 


S 


100 




149 


1 


0342 


s 






149 


1 


0343 


s 






149 


4 


0344 


t 


/80 




149 


8 


0348 


B 


474 


M-4 


149 


8 


0356 


B 


474 


M-0 


150 


8 


0364 


B 


530 


M-4 ) 


150 


7 


0372 


C 


M-4 


/81 


150 


5 


0379 


B 


441 


U 


150 


7 


0384 


C 


M-4 


/82 


150 


5 


0391 


B 


441 


T 


151 


7 


0396 


D 


M-4 


099 


151 


8 


0403 


V 


433 


M-4 B 


151 


7 


0411 


A 


/85 


099 


151 


8 


0418 


V 


433 


M-4 K 


151 


7 


0426 


A 


/85 


099 


152 


4 


0433 


, 


/D8 




152 


4 


0437 


S 


101 




152 


8 


0441 


V 


453 


M-l 2 


152 


4 


0449 


B 


474 




152 


8 


0453 


V 


502 


/80 1 


152 




r\ t, £. » 
VtOA 


$ 


f gu 




i cr-o 


4 


0465 


B 


538 




153 


1 


0469 


2 






153 


4 


0470 


/ 


216 




153 


7 


0474 


A 


/85 


094 


153 


7 


0481 


C 


094 


Lll 


153 


5 


0488 


B 


646 


S 


153 


5 


0493 


B 


502 


t 


153 


4 


0498 


8 


348 




154 


2 


0502 


F 


1 




154 


7 


0504 


M 


S04 


219 


154 


2 


0511 


F 


T 




154 


1 


0513 


2 






154 


4 


0514 


/ 


219 




154 


8 


0518 


V 


461 


/80 1 


154 


4 


0526 


B 


348 




155 


4 


0530 


t 


/78 




155 


4 


0534 


B 


441 




155 



1401 AUT0C0C£R~PASS 6 PRINT SYMBOL TABLE -VERSION 3 



3762L 



PAGE 25 



SEQ 


PQ 


LIN 


LABEL 


OP 


OPERANOS 


1195 


11 


65 


• PRINT SUBROUTINE FOR UNREFERENC 


1196 


11 


66 


> 






1197 


11 


67 


PRINT 


SBR 


PRTXT+3 


1198 


11 


68 




MCW 


SYMBOL, 206+Xl 


1199 


11 


69 




BCE 


OOICADDHCf i 


1200 


11 


70 




MN 


ADDL0,212+X1 


1201 


11 


71 




MN 




1202 


11 


72 




MN 




1203 


11 


73 




MN 




1204 


11 


74 




BWZ 


*+8,ADDHO,2 


1205 


11 


75 




MCW 


•1',208+Xl 


1206 


11 


76 




BWZ 


PRTXT, ADDLO-1,2 


1207 


11 


77 




MN 


'1',215+Xl 


1208 


11 


78 




MCW 


«+X» 


1209 


11 


79 




BWZ 


PRTXT, ADDL0-1,S 


1210 


11 


80 




MN 


•2S215+X1 


1211 


11 


81 




BWZ 


PRTXT, ADDLG~1#K 


1212 


11 


82 




MN 


•3S215 + X1 


1213 


11 


83 


PRTXT 


B 


XXXX 


1214 


11 


84 


DOIO 


MCW 


A0DL0,212+X1 


1215 


11 


85 




B 


PRTXT 


1216 


11 


86 


* 






1217 


11 


87 


* PRINT SYMBOL TABLE 


1218 


11 


88 


• 






1219 


11 


89 


DUMP 


B 


NXTPGE 


1220 


11 


90 




S 


XR3 + 1 


1221 


11 


91 




S 




1222 


11 


92 




S 




1223 


11 


93 


NXTCTR 


SW 


ENDSW=1 


1224 


11 


94 




BW 


SCAN,S0RTAB+1+X3 


1225 


11 


95 


BMPXR3 


BCE 


TSTE0J,S0RTAB+1+X3, * 




1 i 

J. X 


7U 








1227 


11 


97 




B 


NXTCTR 


1228 


11 


98 


SCAN 


BCE 


BMPXR3,S0RTAB+1+X3,- 


1229 


11 


99 




BCE 


BMPXR3»S0RTAB+1+X3,+ 


1230 


12 


00 




BCE 


8MPXR3 , S0RTAB+1+X3 , / 


1231 


12 


01 




MCW 


SQRTA8+l+X3,TSTLBL+7 


1232 


12 


02 


TSTL8L 


BCE 


DQPNT,SYMHO,X 


1233 


12 


03 


NOT 


A 


•Ql0» ,XR2 


1234 


12 


04 




C 


XR2.TABMAX 


1235 


12 


05 




BU 


TSTLBL 


1236 


12 


06 




S 


XR2 + 1 


1237 


12 


07 




S 




1238 


12 


08 




A 


+1,XR3 


1239 


12 


09 




CW 


ENDSW 


1240 


12 


10 




BW 


PNTSYM,PNTSW 


1241 


12 


11 




SW 


PNTSW 


1242 


12 


12 




B 


TSTESW 


1243 


12 


13 


DOPNT 


BCE 


NOT.AODHO, 


1244 


12 


14 




B 


PRINT 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


0538 


H 


634 






155 


7 


0542 


M 


M-9 


2*6 




155 


8 


0549 


B 


635 


M-0 


( 


155 


7 


0557 





M-3 


2/2 




155 


1 


0564 


D 








156 


1 


0565 











156 


1 


0566 


D 








156 


8 


0567 


V 


582 


M-0 


2 


156 


7 


0575 


M 


S05 


2*8 




156 


8 


0582 


V 


631 


M-2 


2 


156 


7 


0590 


D 


S05 


2/5 




156 


4 


0597 


M 


SO 7 






157 


8 


0601 


V 


631 


M-2 


S 


157 


7 


0609 





S08 


2/5 




157 


8 


0616 


V 


631 


M-2 


K 


157 


7 


0624 





S09 


2/5 




157 


4 


0631 


B 


000 






157 


7 


0635 


M 


M-3 


2/2 




158 


4 


0642 


B 


631 






158 



4 


0646 


B 


859 




158 


4 


0650 


S 


100 




158 


1 


0654 


S 






158 


1 


0655 


s 






158 


4 


0656 


f 


S10 




158 


8 


0660 


V 


687 


/09 1 


159 


8 


0668 


B 


888 


/D9 • 


159 




UO f o 








159 


4 


0683 


8 


656 




159 


8 


0687 


B 


668 


/09 - 


159 


8 


0695 


B 


668 


/D9 * 


160 


8 


0703 


B 


668 


/D9 / 


160 


7 


0711 


M 


/09 


725 


160 


8 


0718 


B 


777 


M-4 X 


160 


7 


0726 


A 


/85 


094 


160 


7 


0733 


C 


094 


Lll 


161 


5 


0740 


B 


718 


/ 


161 


4 


0745 


s 


095 




161 


1 


0749 


s 






161 


7 


0750 


A 


Sll 


099 


161 


4 


0757 


) 


S10 




161 


8 


0761 


V 


812 


S18 1 


161 


4 


0769 


t 


S18 




162 


4 


0773 


B 


847 




162 


8 


0777 


B 


726 


M-0 


162 


4 


0785 


B 


538 




162 



1401 AUT0C0CER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 



3762L 



PAGE 



26 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1245 


12 


15 






SW 


PNTSW 


1246 


12 


16 






A 


•016SXR1 


1247 


12 


17 






C 


XR1,«128' 


1248 


12 


18 






BU 


NOT 


1249 


12 


19 


PNTSYM 


W 




1250 


12 


20 






CW 


PNTSW^l 


1251 


12 


21 






cs 


332 


1252 


12 


22 






cs 




1253 


12 


23 






s 


XR1 + 1 


1254 


12 


24 






BU 


*+9 f EN0SW 


1255 


12 


25 






BCE 


TSTE0J»S0RTA8+1+X3 f » 


1256 


12 


26 






BCV 


NXTPGE 


1257 


12 


27 


TSTESW 


8k 


NOT,ENOSW 


1258 


12 


28 






B 


NXTCTR 


1259 


12 


29 


NXTPGE 


SBR 


PGXT+3 


1260 


12 


30 






CS 


332 


1261 


12 


31 






CS 




1262 


12 


32 






cc 


1 


1263 


12 


33 






MCW 


•SYMBOL TABLE',212 


1264 


12 


34 






W 




1265 


12 


35 






CC 


K 


1266 


12 


36 






CS 


212 


1267 


12 


37 


PGXT 


B 


XXXX 


1268 


12 


38 


TSTEOJ 


BIN 


*+3,HEADSW 


1269 


12 


39 






CC 


1 


1270 


12 


391 






CS 


332 


1271 


12 


392 






CHAIN 


3 


1272 










CS 




1273 










cs 




1274 










cs 




1275 


12 


40 






BCE 


EGJQ8,ITERSW*1 






"Tl 


* 








1277 


12 


42 


* 


GET 


PASS C 




1278 


12 


43 


* 








1279 


12 


44 






BSP 


SYSTPE 


1280 


12 


45 






BSP 


SYSTPE 


1281 


12 


46 






MCW 


•5«,TPHALT+4 


1282 


12 


47 






MCW 


'5STPHLT2+4 


1283 


12 


48 






MCW 


•5»,TPHLT3+4 


1284 


12 


49 






MCW 


•OOSPROCSW 


1285 


12 


50 






MCW 


» SSFXCTR 


1286 


12 


51 


* 








1287 


12 


52 


* 


SET 


NUMBER 


OF SEEKS FOR TABLE SEARCH 


1288 


12 


53 


* 








1289 


12 


54 






C 


T0TLAB,TA8LSZ 


1290 


12 


55 






MCW 


TABLSZ,SERCHS 


1291 


12 


56 






S 


TOTLAB 


1292 


12 


57 






BE 


RDPSSC 


1293 


12 


58 






BH 


RDPSSC 


1294 


12 


59 






MCW 


+0009,SERCHS 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


0789 


t 


S18 






162 


7 


0793 


A 


S14 


089 




162 


7 


0800 


C 


089 


S17 




162 


5 


0807 


8 


726 


/ 




163 


1 


0812 


2 








163 


4 


0813 


) 


S18 






163 


4 


0817 


/ 


332 






163 


1 


0821 


/ 








163 


4 


0822 


S 


090 






163 


8 


0826 


V 


842 


S10 1 




163 


8 


0834 


B 


888 


/D9 • 




164 


5 


0842 


B 


859 


t 




164 


8 


0847 


V 


726 


S10 1 




164 


4 


0855 


B 


656 






164 


4 


0859 


H 


887 






164 


4 


0863 


/ 


332 






164 


1 


0867 


/ 








164 


2 


0868 


F 


1 






165 


7 


0870 


M 


S30 


212 




165 


1 


0877 


2 








165 


2 


0878 


F 


K 






165 


4 


0880 


/ 


212 






165 


4 


0884 


B 


000 






165 


8 


0888 


V 


898 


/8G 1 




165 


2 


0896 


F 


1 






166 


4 


0898 


/ 


332 




MACRO 


166 


1 


0902 


/ 






GEN 


166 


1 


0903 


/ 






GEN 


166 


1 


0904 


/ 






GEN 


166 


8 


0905 


B 


997 


U28 1 




166 



5 


0913 


U tUl B 


166 


5 


0918 


U CU1 B 


167 


7 


0923 


M S31 J15 


167 


7 


0930 


M S31 KOI 


167 


7 


0937 


M S31 J42 


167 


7 


0944 


M S33 L95 


167 


7 


0951 


M S34 L23 


168 



7 


0958 


C L93 


L18 


168 


7 


0965 


M L18 


L99 


168 


4 


0972 


S L93 




168 


5 


0976 


B K72 


S 


168 


5 


0981 


B K72 


U 


168 


7 


0986 


M S38 


L99 


169 



1401 AUTOCODER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1295 


12 


60 




8 


RDPSSC 


1296 


12 


61 


* 






1297 


12 


62 


* LAST 


ITERATION, GET PASS E 


1298 


12 


63 


* 






1299 


12 


64 


EOJOB 


CW 


GPMRK2-1 


1300 


12 


65 




CS 


3999 


1301 


12 


66 




BCE 


REA0E,MAChS2,3 


1302 


12 


67 




CS 


4799 


1303 


12 


68 




CHAIN 


7 


1304 








CS 




1305 








CS 




1306 








CS 




1307 








CS 




1308 








CS 




1309 








CS 




1310 








CS 




1311 


12 


681 


CLR 


CS 


3999 


1312 


12 


682 




SBR 


CLR+3 


1313 


12 


683 




C 


CLR+3, +SSCP-1 


1314 


12 


684 




BU 


CLR 


1315 


12 


69 


REAOE 


RTW 


SYSTPE,SSCP 


1316 


12 


70 




BER 


SYSERR 


1317 


12 


71 


GCTCE 


MCW 


•NSSSOP 


1318 


12 


72 




B 


SSOP+1 


1319 


12 


73 


SYSERR 


MCW 


+9,RDCT=1 


1320 


12 


74 




BSP 


SYSTPE 


1321 


12 


75 


RETRY 


RTW 


SYSTPE, SSCP 


1322 


12 


76 




BER 


AGAIN 


1323 


12 


77 




B 


GOTQE 


1324 


12 


78 


AGAIN 


BSP 


SYSTPE 


1325 


12 


79 




S 


•1SRDCT 


1326 


12 


80 




BWZ 


RETRY tRDCTf B 


1327 


12 


81 




H 


XXXX,691 


1328 


12 


82 




RTW 


SYSTPE, SSCP 


1329 


12 


83 




BSS 


SYSERR, E 


1330 


12 


84 




H 


XXX X ,612 


1331 


12 


85 




B 


GOTOE 


1332 


12 


86 


LIST 


DCW 


* A8CDEFGHI-JKLMN0PQR+/STUVWXYZ) » 


1333 


12 


87 


SORTAB 


ECU 


LiST-31 


1334 


12 


88 




LTQRG 


• 






L158 


HEADSW 


DCW 


=01 
»A» 
»Z» 
•010« 






1186 






•UNREFERENCED LABELS* 

•1« 

•+X» 






















•2» 












§31 






L223 


ENOSW 




=01 



SFX CT LOCN 
4 0993 



INSTRUCTION TYPE CARD 
B K72 169 



4 


0997 


) 


U30 






169 


4 


1001 


/ 


f Qfl 






169 


8 


1005 


B 


+44 


L89 


3 


169 


4 


1013 


/ 


79Z 




MACRO 


169 


1 


1017 


/ 






GEN 


169 


1 


1018 


/ 






GEN 


170 


1 


1019 


/ 






GEN 


170 


1 


1020 


/ 






GEN 


170 


1 


1021 


/ 






GEN 


170 


1 


1022 


/ 






GEN 


170 


1 


1023 


/ 






GEN 


170 


4 


1024 


/ 


199 






170 


4 


1028 


H 


*27 






171 


7 


1032 


C 


#27 


S41 




171 


5 


1039 


B 


*24 


/ 




171 


8 


1044 


L 


(Ul 


ZOO 


R 


171 


5 


1052 


B 


*68 


L 




171 


7 


1057 


M 


S42 


ZOO 




171 


4 


1064 


B 


Z01 






172 


7 


1068 


M 


S43 


S44 




172 


5 


1075 


U 


{Ul 


B 




172 


8 


1080 


L 


(Ul 


ZOO 


R 


172 


5 


1088 


B 


4=97 


L 




172 


4 


1093 


B 


*57 






172 


5 


1097 


U 


(Ul 


8 




172 


7 


1102 


S 


SOS 


S44 




173 


a 
O 


1 i r*ri 

A AW 7 




toy 


S44 





173 


7 


1117 


• 


000 


691 




173 


8 


1124 


L 


(Ul 


ZOO 


R 


173 


5 


1132 


B 


*68 


E 




173 


7 


1137 


• 


000 


612 




174 


4 


1144 


B 


+57 






174 


32 


1179 
1148 










175 






1180 








1 


1180 








AREA 


175 


1 


1181 








LIT 


175 


1 


1182 








LIT 


175 


3 


1185 








LIT 


175 


19 


1204 








LIT 


176 


1 


1205 








LIT 


176 


2 


1207 








LIT 


176 


1 


1208 








LIT 


176 


1 


1209 








LIT 


176 


1 


1210 








AREA 


176 



1401 AUT0C0CER-PASS 6 PRINT SYMBOL TABLE -VERSION 3 



3762L 



PAGE 28 



SEQ 


?& LIN 


LABEL 


OP 


OPERANDS 

+ 1 

•016* 

, 128 l 




1250 


PNTSW 




=01 




1263 






•SYMBOL 

•5» 

«00« 
i i 

+0009 




1313 






+SS0P-1 

»N» 
+9 




1319 


RDCT 




=01 


1335 


12 89 


ENDOVL 


DCW 


i t 


1336 


12 90 




EX 


LIBRN 


1337 


12 91 




END 


LI8RN 



SFX CT LQCN INSTRUCTION TYPE CARD 



TABLE* 



1 


1211 






LIT 


176 


3 


1214 






LIT 


177 


3 


1217 






LIT 


177 


1 


1218 






AREA 


177 


12 


1230 






LIT 


177 


1 


1231 






LIT 


177 


2 


1233 






LIT 


177 


1 


1234 






LIT 


177 


4 


1238 






LIT 


178 


3 


1241 


Y99 


ADCON 


178 


1 


1242 






LIT 


178 


1 


1243 






LIT 


178 


1 


1244 






AREA 


178 


1 


1245 








178 






B 


000 




179 






/ 


000 080 




182 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



,008015, 019026, G3C, 034041 ,045, 053, 0570 571026 

LQ68 112, 102106, 113/101099/ 199, 027A070028) 0276001027080261,001/001113 10 

,008015,022029,0 36040,047054,061068,072/061039 ,0010011040 



1401 AUTGCOCER-FASS 7~LIST,CQNDNS~INITL 1 -VERSION 3 



3771L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


101 


1 


01 


000 


JOB 


1401 AUTO 


102 


1 


02 




CTL 


630 1 


103 


1 


03 


* 






104 


1 


04 


* EQUATES USED 8Y PROG 


105 


1 


05 


* 






106 


1 


06 


INITAP 


EQU 


(UO 


107 


1 


07 


SYSTAP 


EQU 


<U1 


108 


1 


08 


ORIGTP 


EQU 


CU4 


109 


1 


09 


WORKTP 


EQU 


(U5 


110 


1 


10 


XTRATP 


EQU 


(U6 


111 


1 


11 


FIXFRM 


EQU 





112 


1 


12 


STLA8L 


EQU 


FIXFR#+2 


113 


1 


13 


STSTMT 


EQU 


FlXFRtf+5 


114 


1 


14 


COUNT 


EQU 


FIXFRM+7 


115 


1 


15 


ORGAOD 


EQU 


FIXFRH+32 


116 


1 


16 


LABADD 


ECU 


FIXFRM+61 


117 


1 


17 


SUPADD 


EQU 


FIXFRM+66 


118 


1 


18 


OP 


EQU 


FIXFRH+67 


119 


1 


19 


AOP 


EQU 


FIXFRM+70 


120 


1 


20 


BOP 


EQU 


FIXFRM+73 


121 


1 


21 


DMCO 


EQU 


FIXFRM+74 


122 


1 


22 


TYPE 


EQU 


FIXFRM+75 


123 


1 


23 


ALTER 


EQU 


FIXFRH+80 


124 


1 


24 


XXXX 


EQU 





125 


1 


25 


PRINT 


EQU 


200 


126 


1 


26 


ALT 


EQU 


PRINT+4 




* 

L 








n n t ** t > -» 

rr\ i m iti 


128 


1 


28 


LIN 


EQU 


PRINT+11 


129 


1 


29 


LAB 


EQU 


PRINT+19 


130 


1 


30 


OPCODE 


EQU 


PRINT+25 


131 


1 


31 


OPRAND 


EQU 


PRINT+78 


132 


1 


32 


SUFFIX 


EQU 


PRINT+80 


133 


1 


33 


CT 


EQU 


PRINT+84 


134 


1 


34 


LOCN 


EQU 


PRINT+90 


135 


1 


35 


INGP 


EQU 


PRINT+93 


136 


1 


36 


INAOP 


EQU 


PRINT+97 


137 


1 


37 


INBCP 


EQU 


PRINT+101 


138 


1 


38 


INDKOD 


EQU 


PR1NT+103 


139 


1 


39 


KIND 


EQU 


PRINT+109 


140 


1 


40 


CARDNO 


EGU 


PRINT+114 


141 


1 


41 


PUNCH 


EQU 


100 


142 


1 


42 


LIBRN 


EQU 





143 


1 


43 


ZONE 


EQU 


189 


144 


1 


44 


XR1 


EQU 


89 


145 


1 


45 


XR2 


EQU 


94 


146 


1 


46 


XR3 


EQU 


99 


147 


1 


47 


* 







SFX CT LOCN INSTRUCTION TYPE CARD 



1401 AUTOCODER-PASS 7-LIST,CQN0NS-INITL 1 -VERSION 3 



(UO 

CU1 

CU4 

CU5 

CU6 

0000 

0002 

0005 

0007 

0032 

0061 

0066 

0067 

0070 

0073 

0074 

0075 

0080 

0000 

0200 

0204 

\JC\J i 

0211 
0219 
0225 
0278 
0280 
0284 
0290 
0293 
0297 
0301 
0303 
0309 
0314 
0100 
0000 
0189 
0089 
0094 
0099 



1401 AUTOCODER-PASS 7-LIST, CONONS-INITL 1 -VERSION 3 



3771L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


148 


1 


48 


* 


INITIALIZATION ROUTINE 


149 


1 


49 


* 








150 


1 


50 






ORG 


1900 


151 


1 


51 


SSOP 


DCW 


• B t 


152 


1 


52 






CS 


332 


153 


1 


53 






CS 




154 


1 


54 






CS 




155 


1 


55 






CS 




156 


1 


56 






RTW 


SYSTAP,40C 


157 


1 


57 






NOP 


XXXX 


158 


1 


58 






BER 


TPERRI 


159 


1 


59 






CW 


ENDIN2.LSTGP1 


160 


1 


60 






SW 


ENDIN 


161 


I 


61 






LCA 


ENDIN, 333 


162 


1 


62 






LCA 


ENDIN, 181 


163 


1 


63 






MCW 


SSOP.TSTSIZ 


164 


1 


64 






MCW 


SS0P»SSAVE1 


165 


1 


65 






cw 


ENDIN 


166 


1 


66 






RWD 


ORIGTP 


167 


1 


67 






RWD 


WORKTP 


168 


1 


68 






RWD 


XTRATP 


169 


1 


69 






SW 


PUNCH+72,PUNCH+76 


170 


1 


70 






A 


+l,PUNCH+75 


171 


1 


71 






B 


READ4 


172 


1 


72 


• 








173 


1 


73 


* 


CHECK FOR 


JOB CARD 


174 


1 


74 


* 








175 


1 


75 






C 


MNEM0N-2,»JCB* 


176 


1 


76 






BU 


CKCTL 


177 


1 


77 






CW 


J0BSW=1 


178 


1 


78 






RT 


WORKTP, 180 


179 


1 


79 






t ** A 


333f JLOA 


180 


1 


80 






MCW 


0PERND,J08SAV 


181 


1 


81 






MCW 


IMAGE+80,PUMCH+80 


182 


1 


82 






MCW 


ALTN0,J0BALT=4 


183 


1 


83 






MCW 


PAGENG»JQBPAG=2 


184 


1 


84 






MCW 


LINEN0,JOBLIN=3 


185 


1 


85 






MCW 


LABEL, JGBLA6=6 


186 


1 


86 






B 


READ4 


187 


1 


87 


* 








188 


1 


88 


* 


CHECK FOR 


CONTROL CARD 


189 


1 


89 


* 








190 


1 


90 


CKCTL 


C 


MNEMQN-2,'CTL» 


191 


1 


91 






BU 


TSTSIZ 


192 


1 


92 






CW 


CTLSW=1 


193 


1 


93 






MCW 


IMAGE+30,CTLSAV=1C 


194 


1 


94 






MCW 


ALTN0,CTLALT=4 


195 


1 


95 






MCW 


PAGENG,CTLPAG=2 


196 


1 


96 






MCW 


LINENC,CTLLIN=3 


197 


1 


97 






B 


READ4 



SFX CT LOCN INSTRUCTION TYPE CARD 



1900 



1 


1900 








4 


1901 


/ 


332 




1 


1905 


/ 






1 


1906 


/ 






1 


1907 


/ 






8 


1908 


L 


<U1 


400 


4 


1916 


N 


000 




5 


1920 


B 


M03 


L 


7 


1925 


) 


X99 


093 


4 


1932 


t 


198 




7 


1936 


L 


198 


333 


7 


1943 


L 


198 


181 


7 


1950 


M 


ZOO 


407 


7 


1957 


M 


ZOO 


091 


4 


1964 


) 


198 




5 


1968 


U 


(U4 


R 


5 


1973 


u 


<U5 


R 


5 


1978 


u 


(U6 


R 


7 


1983 


f 


172 


176 


7 


1990 


A 


096 


175 


4 


1997 


B 


T15 





7 


2001 


C 


H48 


099 


5 


2008 


8 


-78 


/ 


4 


2013 


\ 


POO 




8 


2017 


M 


«U5 


180 


i 


2025 




111 


XOi. 


7 


2032 


M 


I02 


085 


7 


2039 


M 


no 


180 


7 


2046 


M 


1 14 


P04 


7 


2053 


M 


H32 


P06 


7 


2060 


M 


H35 


P09 


7 


2067 


M 


H41 


P15 


4 


2074 


B 


T15 





7 


2078 


C 


H48 


P18 


5 


2085 


B 


407 


/ 


4 


2090 


) 


P19 




7 


2094 


M 


H60 


P29 


7 


2101 


M 


114 


P33 


7 


2108 


M 


H32 


P35 


7 


2115 


M 


H35 


P38 


4 


2122 


B 


T15 





4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
7 
7 



9 
9 
9 
10 
10 
10 
10 
10 



1401 AUTOCQCER-PASS 7-LIST, CQNDNS-IN ITL 1 -VERSION 3 



3771L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


198 


1 


98 


* 








199 


1 


99 


* 


TEST 


OUTPUT OPTION DESIRED 


200 


2 


00 


* 








201 


2 


01 


CHKCP 


BCE 


OPNTAP, LSTAPE,1 


202 


2 


02 


TSTOP 


8CE 


TSTSIZ,OUTOPN,0 


203 


2 


03 






BCE 


C0ND0P,0UT0PN,1 


204 


2 


04 






BCE 


TSTSIZ,0UT0PN,2 


205 


2 


05 






BCE 


C0NDOP«0UTOPN,3 


206 


2 


06 






BCE 


TSTSIZ.QUT0PN.4 


207 


2 


07 






BCE 


C0ND0P,0UT0PN»5 


208 


2 


08 






BCE 


TSTSIZ,0UT0PN,6 


209 


2 


09 






BCE 


C0ND0P,0UT0PN,7 


210 


2 


10 






BCE 


TSTSIZ»0UT0PN, 


211 


2 


11 






CW 


CTLSW1=1 


212 


2 


12 






B 


TSTSIZ 


213 


2 


13 


OPNTAP 


CW 


TAP0P1 


214 


2 


14 






B 


TSTOP 


215 


2 


15 


• 








216 


2 


16 


« 


SETUP + GET MAIN PROGRAM 


217 


2 


17 


* 








218 


2 


18 


GETMAN 


BSP 


ORIGTP 


219 


2 


19 






sw 


FlXFRM+l,FIXFRM+6 


220 


2 


20 






sw 


FIXFRM+8,FIXFRM+14 


221 


2 


21 






sw 


FIXFRM+23,FIXFRM+57 


222 


2 


22 






sw 


FIXFRM+62,FIXFRM+67 


223 


2 


23 






sw 


FlXFRM+68,FIXFRM+71 


224 


2 


24 






sw 


FIXFRH+74 


225 


2 


25 






CW 


181,333 


226 


2 


26 






MCW 


K8LK1,HQLCA1-1 


227 


2 


27 






LCA 


•LO » , 


228 


2 


28 






LCA 


»2SKB»,Z0NE 


229 


*> 


C 7 






1 ^ A 

LWH 


■ /% rt a> r» f» • vn-^A-4 


230 


2 


30 






LCA 


XR3+2 


231 


2 


31 






LCA 




232 


2 


32 






SW 


GRPMK3 


233 


2 


33 






BCE 


SETOUT, CN0SW1»1 


234 


2 


34 






BW 


*+5,LST0Pl 


235 


2 


35 






B 


SETOUT 


236 


2 


36 






BW 


*+5,TAP0Pl 


237 


2 


37 






B 


SETGUT 


238 


2 


38 






MCW 


•ISNCOUTI 


239 


2 


39 


SETOUT 


MCW 


0UT0PN,0PNSV1 


240 


2 


40 






WTW 


XTRATP,SAVCM 


241 


2 


41 






NOP 


XXXX 


242 


2 


42 






BER 


TPERRI 


243 


2 


43 






RWD 


XTRATP 


244 


2 


44 






CW 


GRPMK3 


245 


2 


45 






RTW 


SYSTAP,201 


246 


2 


46 






NOP 


XXXX 


247 


2 


47 






BER 


TPERRI 



SFX CT LOCN INSTRUCTION TYPE CARD 



»,PUNCH+71 



8 


2126 


8 


K14 


P24 


1 


11 


8 


2134 


B 


407 


P22 





11 


8 


2142 


B 


400 


P22 


1 


11 


8 


2150 


B 


407 


P22 


2 


11 


8 


2158 


B 


400 


P22 


3 


12 


8 


2166 


B 


407 


P22 


4 


12 


8 


2174 


B 


400 


P22 


5 


12 


8 


2182 


8 


407 


P22 


6 


12 


8 


2190 


B 


400 


P22 


7 


13 


8 


2198 


B 


407 


P22 




13 


4 


2206 


) 


P39 






13 


4 


2210 


B 


407 






13 


4 


2214 


) 


092 






13 


4 


2218 


B 


J34 






13 


5 


2222 


U 


(U4 


B 




13 


7 


2227 


, 


001 


006 




14 


7 


2234 


t 


008 


014 




14 


7 


2241 


t 


023 


057 




14 


7 


2248 


, 


062 


067 




14 


7 


2255 


« 


068 


071 




14 


4 


2262 


* 


074 






14 


7 


2266 


) 


181 


333 




15 


7 


2273 


M 


027 


023 




15 


7 


2280 


L 


P71 


171 




15 


7 


2287 


L 


P75 


189 




15 


i 


<% ■** j-» * 


* 


rou 


JLKfl 




15 


4 


2301 


L 


101 






15 


1 


2305 


L 








16 


4 


2306 


, 


095 






16 


8 


2310 


8 


L49 


033 


1 


16 


8 


2318 


V 


L30 


093 


1 


16 


4 


2326 


8 


L49 






16 


8 


2330 


V 


L42 


092 


1 


16 


4 


2338 


B 


L49 






16 


7 


2342 


M 


P81 


094 




17 


7 


2349 


M 


P22 


090 




17 


8 


2356 


L 


(U6 


021 


W 


17 


4 


2364 


N 


000 






17 


5 


2368 


B 


MO 3 


L 




17 


5 


2373 


U 


(U6 


R 




17 


4 


2378 


) 


095 






18 


8 


2382 


L 


(Ul 


201 


R 


18 


4 


2390 


N 


000 






18 


5 


2394 


B 


M03 


L 




18 



1401 AUTOCOCER-PASS 7-LIST,C0NDNS-INITL 1 -VERSION 3 



3771L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


248 


2 


48 




B 


INIT2 


249 


2 


49 


• 






250 


2 


50 


* TAPE 


REDUNDANCY ROUTINE 


251 


2 


51 


* 






252 


2 


52 


TPERRI 


SBR 


XR2 


253 


2 


53 




SBR 


REDXI+3 


254 


2 


54 




MZ 


+9,XR2 


255 


2 


55 




MCW 


4000-10+X2,TPINSI+7 


256 


2 


56 




MN 


TPINSI+3*eSPI+3 


257 


2 


57 




MCW 


TPINSI+7,INST2I+7 


258 


2 


58 


BSPI 


BSP 


INITAP 


259 


2 


59 




BCE 


WRTRDI, TPINSI+7,W 


260 


2 


60 




MCW 


+9»READCI=1 


261 


2 


61 


TPINSI 


RT 


INITAP, XXXX 


262 


2 


62 




BER 


RDRERI 


263 


2 


63 


REDXI 


B 


XXXX 


264 


2 


64 


RDRERI 


MN 


TPINSH-3,BSP2I + 3 


265 


2 


65 


8SP2I 


BSP 


INITAP 


266 


2 


66 




S 


+1,READCI 


267 


2 


67 




BWZ 


TPINSI, R£A0CI»B 


268 


2 


68 




MN 


TPINSI+3,TPHALl+6 


269 


2 


69 


TPHALI 


H 


XXXX, 790 


270 


2 


70 




MCW 


TPlNSI+7,«+8 


271 


2 


71 




RT 


INITAP, XXXX 


272 


2 


72 




BSS 


8SPI,E 


273 


2 


73 




H 


XXXX,711 


274 


2 


74 




B 


REDXI 


275 


2 


75 


WRTRDI 


SKP 


SYSTAP 


276 


2 


76 




BCE 


SUBCTI, WRTCTI-1, 5 


277 


2 


77 




A 


+1,WRTCTI=2 


278 


2 


78 


INST2I 


WT 


INITAP, XXXX 


279 


2 


79 




f»rn 

OCR 


n r- r\ t 

Don 


280 


2 


80 




B 


REDXI 


281 


2 


81 


SUBCTI 


S 


WRTCTI 


282 


2 


82 




MN 


TPINSI+3,*+7 


283 


2 


83 




H 


XXXX, 760 


284 


2 


84 




8 


INST2I 


285 


2 


85 


CLRLEG 


DCW 


•CLEAR STCRAGE » 


286 


2 


86 


HCLDA1 


DCW 


+0000 


287 


2 


87 


KBLK1 


OCW 


»080* 


288 


2 


88 


C0RS1Z 


DCW 


* 3999* 


289 


2 


89 


CNDSW1 


DCW 


»0« 


290 


2 


90 


JCBSAV 


DCW 


=52 


291 


2 


91 


ERRCT1 


DCW 


•0000' 


292 


2 


92 


0PNSV1 


DCW 


t i 


293 


2 


93 


SSAVE1 


DCW 


t t 


294 


2 


94 


TAPCP1 


DCW 


i i 


295 


2 


95 


LST0P1 


DCW 


• • 


296 


2 


96 


N0CUT1 


DCW 


i i 


297 


2 


97 


GRPMK3 


DC 


i i 



SFX CT LOCN 
4 2399 



INSTRUCTION TYPE CARD 
B 201 18 



4 


2403 


H 


094 




18 


4 


2407 


H 


M75 




18 


7 


2411 


Y 


P82 


094 


19 


7 


2418 


M 


IRO 


M66 


19 


7 


2425 


D 


M62 


M42 


19 


7 


2432 


M 


M66 


N75 


19 


5 


2439 


U 


*U0 


8 


19 


8 


2444 


B 


N48 


M66 W 


20 


7 


2452 


M 


P82 


P83 


20 


8 


2459 


M 


(UO 


000 R 


20 


5 


2467 


B 


M76 


L 


20 


4 


2472 


B 


000 




20 


7 


2476 


D 


M62 


M86 


20 


5 


2483 


U 


{UO 


B 


21 


7 


2488 


S 


096 


P83 


21 


8 


2495 


V 


M59 


P83 B 


21 


7 


2503 


D 


M62 


N16 


21 


7 


2510 


* 


000 


790 


21 


7 


2517 


M 


M66 


N31 


22 


8 


2524 


M 


(UO 


000 R 


22 


5 


2532 


B 


M39 


E 


22 


7 


2537 


• 


000 


711 


22 


4 


2544 


B 


M72 




22 


5 


2548 


U 


iUl 


E 


22 


8 


2553 


B 


N85 


P84 5 


23 


7 


2561 


A 


096 


P85 


23 


8 


2568 


M 


(UO 


000 W 


23 


c 




a 


M39 


i 


23 


4 


2581 


B 


M72 




23 


4 


2585 


S 


P85 




23 


7 


2589 


D 


M62 


002 


24 


7 


2596 


• 


000 


760 


24 


4 


2603 


B 


N68 




24 


14 


2620 








24 


4 


2624 








24 


3 


2627 








24 


5 


2632 








25 


1 
52 


2633 
2685 








25 
27 


4 


2689 








27 


1 


2690 








27 


1 


2691 








27 


1 


2692 








27 


1 


2693 








28 


1 


2694 








28 


1 


2695 








28 



1401 AUTOCODER-PASS 7-LIST, CONDNS-INITL 1 -VERSION 3 



37711- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANOS 


298 


2 


98 


SAVCN1 


ECU 


HOLDAi-3 


299 


2 


99 




LTORG 
DCW 


» 
+ 1 

•JOB* 






177 


JOBSW 




=01 






182 


JOBALT 




=04 






183 


JOBPAG 




=02 






184 


JG8LIN 




=03 






185 


JOBLAB 




=06 
•CTL« 






192 


CTLSW 




=01 






193 


CTLSAV 




= 10 






194 


CTLALT 




=04 






195 


CTLPAG 




=02 






196 


CTLLIN 




=03 






211 


CTLSW1 




=01 






227 






•LO , 
•2SK8* 






229 






•OOOOO* 
+9 
















260 


READCI 




=01 






277 


WRTCTI 




=02 


300 


3 


00 




ORG 


3831 


301 


3 


01 


INPUT4 


DA 


1X86 


302 


3 


02 


PAGENO 




1,2 


303 


3 


03 


LINENO 




3,5 


304 


3 


04 


LABEL 




6,11 


305 


3 


05 


fcNENGN 




16,20 


306 


3 


06 


OPERND 




21,72 


307 


3 


07 


ALTNO 




81,84 


308 


3 


08 


IMAGE 


ECU 


il>iPui**— 1 


309 


3 


09 


FIXINP 


EQU 


IMAGE+87+X3 


310 


3 


10 


INPUTS 


EQU 


FIXINP+1+XO 


311 


3 


11 


PROSIZ 


EQU 


CTLSAV-9 


312 


3 


12 


OBJSIZ 


EQU 


CTLSAV-8 


313 


3 


13 


CUTOPN 


EQU 


CTLSAV-7 


314 


3 


14 


LSTAPE 


EQU 


CTLSAV-5 


315 


3 


15 


ENDIN 


EQU 


3998 


316 


3 


16 


3998 


DCW 


i , 


317 


3 


17 




XFR 


LIBRN 



SFX CT LOCN INSTRUCTION TYPE CARD 



2621 



2696 



1 


2696 


3 


2699 


1 


2700 


4 


2704 


2 


2706 


3 


2709 


6 


2715 


3 


2718 


1 


2719 


10 


2729 


4 


2733 


2 


2735 


3 


2738 


1 


2739 


32 


2771 


4 


2775 


5 


2780 


1 


2781 


1 


2782 


1 


2783 


2 


2785 




3831 




3831 3916 




3832 




3835 




3841 




3850 




3902 




3914 




■*» o ■» r% 




PC3U 




3917 X 




3918 




2720 




2721 




2722 




2724 




3998 


1 


3998 



LIT 


28 


LIT 


28 


AREA 


28 


AREA 


28 


AREA 


28 


AREA 


29 


AREA 


29 


LIT 


29 


AREA 


29 


AREA 


29 


AREA 


29 


AREA 


29 


AREA 


30 


AREA 


30 


LIT 


30 


LIT 


31 


LIT 


31 


LIT 


31 


LIT 


31 


AREA 


31 


AREA 


31 




31 


FIELD 


32 


FIELD 


32 


FIELD 


32 


FIELD 


32 


FIELD 


32 


FIELD 


32 



B 000 



33 

34 













1401 AUTOCGCER-PASS 7 LIST.CGNDNS-INITL 2 -VER 


SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


318 


3 


18 




JOB 


1401 AUTGCGCER-PASS 7 LIST, CONDNS-INITL 2 -VER 


319 


3 


19 




ORG 


400 


320 


3 


20 


* 






321 


3 


21 


* CONDENSE 


OPTION 


322 


3 


22 


* 






323 


3 


23 


CONDOP 


MCW 


f 1SCNDSW1 


324 


3 


24 


* 






325 


3 


25 


* TEST 


OBJECT MACHINE SIZE 


326 


3 


26 


• 






327 


3 


27 


TSTSIZ 


BSS 


SENSW,F 


328 


3 


28 




BW 


*+3,LSTGPl 


329 


3 


29 




CC 


1 


330 


3 


30 




MCW 


•1*,PRINT+15 


331 


3 


31 




MCW 


CLRLEG 


332 


3 


32 




MCW 


»1«»200 


333 


3 


33 




BW 


IS4K»CTLSW 


334 


3 


34 




C 


0BJSIZ,'3« 


335 


3 


35 




BL 


0VER4K 


336 


3 


36 




B 


IS4K 


337 


3 


37 


0VER4K 


C 


OBJSIZ,^' 


338 


3 


38 




BL 


BADCTL 


339 


3 


39 




MCW 


•,053053NCOCOOON00001G26',PUNCH+52 


340 


3 


40 




LCA 


S 008015, 022026, 030037, 044, 049' 


341 


3 


41 




MCW 


PUNCH+52,PRINT+72 


342 


3 


42 




B 


PRTPNH 


343 


3 


43 




MCW 


•1, 001/00111710+', PUNCH+71 


344 


3 


44 




MCW 


•=071029C029056B026/B001/099' 


345 


3 


45 




LCA 


•LC68116, 105 106, 1101 178101/ 19 1 « 


346 


3 


46 




BCE 


IS8K,08JSIZ,4 


347 


3 


47 




BCE 


IS12K,08JSI2,5 


348 


3 


48 




MCW 


'15NCGRSIZ-3 










O 


/* t F% O T* *% 


350 


3 


50 


BADCTL 


CW 


CTLSW1 


351 


3 


51 


IS4K 


MCW 


• ,0570571026' ,PUNCH+44 


352 


3 


52 




LCA 


•,008015,019026, 030, 034041, 045, 053* 


353 


3 


53 




MCW 


PUNCH+44.PRINT+64 


354 


3 


54 




B 


PRTPNH 


355 


3 


55 




MCW 


•B0010270B0261, 001/0011 1310' ,PUNCH+70 


356 


3 


56 




LCA 


•L068112, 102106, 113/101099/ 199, 027A070028) 027' 


357 


3 


57 




BCE 


CLRST2,0BJSIZ,3 


358 


3 


58 




MZ 


•S',PUNCH+27 


359 


3 


59 




MCW 


•1SCORSIZ-3 


360 


3 


60 




BCE 


CLRST2,0BJSIZ,2 


361 


3 


61 




MCW 


•T , ,PUNCH+27 


362 


3 


62 




MCW 


•3SCORSIZ-2 


363 


3 


63 




BCE 


CLRST2,0BJSIZ,1 


364 


3 


64 




CW 


CTLSW1 


365 


3 


65 




MCW 


«I',PUNCH+27 


366 


3 


66 




MCW 


»39«,C0RSIZ-2 


367 


3 


67 




B 


CLRST2 



3772L 



PAGE 



SFX CT LOCN INSTRUCTION TYPE CARD 



0400 



7 0400 M T64 033 



37 



5 


0407 


8 


/03 


F 


37 


8 


0412 


V 


422 


093 1 


37 


2 


0420 


F 


1 




37 


7 


0422 


M 


T64 


215 


37 


4 


0429 


M 


020 




37 


7 


0433 


M 


T64 


200 


38 


8 


0440 


V 


544 


P19 1 


38 


7 


0448 


C 


P21 


T65 


38 


5 


0455 


B 


464 


T 


38 


4 


0460 


B 


544 




38 


7 


0464 


C 


P21 


T66 


38 


5 


0471 


B 


540 


T 


39 


7 


0476 


M 


T89 


152 


39 


4 


0483 


L 


U18 




39 


7 


0487 


M 


152 


272 


39 


4 


0494 


8 


S17 




39 


7 


0498 


M 


U33 


171 


39 


4 


0505 


M 


U60 




39 


4 


0509 


L 


U89 




40 


8 


0513 


B 


651 


P21 4 


40 


8 


0521 


8 


669 


P21 5 


40 


7 


0529 


M 


U91 


029 


40 


T 




Q 
U 


683 




TV 


4 


0540 


) 


P39 




40 


7 


0544 


M 


V02 


144 


41 


4 


0551 


L 


V35 




41 


7 


0555 


M 


144 


264 


41 


4 


0562 


B 


S17 




41 


7 


0566 


M 


V61 


170 


41 


4 


0573 


L 


W05 




41 


8 


0577 


B 


683 


P21 3 


42 


7 


0585 


Y 


W06 


127 


42 


7 


0592 


M 


T64 


029 


42 


8 


0599 


B 


683 


P21 2 


42 


7 


0607 


M 


WO 7 


127 


42 


7 


0614 


M 


T65 


030 


43 


8 


0621 


B 


683 


P21 1 


43 


4 


0629 


) 


P39 




43 


7 


0633 


M 


WO 8 


127 


43 


7 


0640 


M 


W10 


030 


43 


4 


0647 


B 


683 




43 



1401 AUTOCOCER-PASS 7 LiST,CONDNS-INlTL 2 -VERSION 3 



3772L 



PAGE 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


368 


3 68 


IS8K 


HZ 


•SNPUNCH+29 


369 


3 69 




MCW 


•7»,CGRSIZ-3 


370 


3 70 




B 


CLRST2 


371 


3 71 


IS12K 


M2 


»K»,PUNCH+29 


372 


3 72 




MCW 


«ll , »C0RSIZ-3 


373 


3 73 


CLRST2 


MCW 


PUNCH+71,PRINT+91 


374 


3 74 




MCW 


•2SPRINT+15 


375 


3 75 




MCW 


CLRLEG 


376 


3 76 




8 


PRTPNH 


377 


3 77 




MCW 


• ,001001104C« ,PUNCH+71 


378 


3 78 




MCW 


« ,061068, 072/061039* ,PUNCH+46 


379 


3 79 




LCA 


» ,008015,022029,036040,047054' 


380 


3 80 




MCW 


PUNCH+71,PRINT+91 


381 


3 81 




MCW 


•BOOTSTRAP* ,PRINT+9 


382 


3 32 




B 


PRTPNH 


383 


3 83 




BW 


•+3.LST0P1 


384 


3 84 




CC 


K 


385 


3 85 




BW 


DOHEAD, CTLSte 


386 


3 86 


# 






387 


3 87 


* TEST 


PROCESSOR MACHINE SIZE 


388 


3 88 


* 






389 


3 89 




C 


PROSIZ, «3» 


390 


3 90 




BE 


DOHEAD 


391 


3 91 




BH 


BADPRO 


392 


3 92 




C 


PROSIZ,^ 1 


393 


3 93 




BL 


BADPRO 


394 


3 94 




MCW 


•400»,KBLK1 


395 


3 95 




BCE 


DOHEAD, PROSIZ, 4 


396 


3 96 




A 


*400»,KBLK1 


397 


3 97 




B 


DOHEAD 


398 


3 98 


BADPRO 


CW 


CTLSW1 


399 


3 99 


* 






400 


4 00 


* PRINT HEADING, JOB + CONTROL CARDS 


401 


4 01 


* 






402 


4 02 


DOHEAD 


MCW 


•1SPRINT + 114 


403 


4 03 




MCW 


«PAGE , .PRINT+1Q9 


404 


4 04 




MCW 


JOBSAV,OPRAhD 


405 


4 05 




MCW 


PUNCH+80.L0CN 


406 


4 06 




MCW 


'0S20G 


407 


4 07 




B 


PRINT2 


408 


4 08 




BW 


*+3,LST0Pl 


409 


4 09 




CC 


K 


410 


4 10 




CS 


PRINT+78 


411 


4 11 




MCW 


•SFX CT LOCN INSTRUCTION TYPE CARD* , PRINT+114 


412 


4 12 




MCW 


•SEQ PG LIN LABEL OP OPERANDS' , PRINT+34 


413 


4 13 




MCW 


•0S200 


414 


4 14 




B 


PRINT2 


415 


4 15 




CS 


PRINT+132 


416 


4 16 




CS 




417 


4 17 




B 


PRINT2 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 


0651 


Y W06 129 


44 


7 


0658 


M Wll 029 


44 


4 


0665 


B 683 


44 


7 


0669 


Y W12 129 


44 


7 


0676 


M W14 029 


44 


7 


0683 


M 171 291 


44 


7 


0690 


M W15 215 


45 


4 


0697 


M 020 


45 


4 


0701 


B SI 7 


45 


7 


0705 


M W26 171 


45 


7 


0712 


M W44 146 


45 


4 


0719 


L W72 


45 


7 


0723 


M 171 291 


46 


7 


0730 


M W81 209 


46 


4 


0737 


B S17 


46 


8 


0741 


V 751 093 1 


46 


2 


0749 


F K 


46 


8 


0751 


V 818 P19 1 


46 


7 


0759 


C P20 T65 


47 


5 


0766 


B 818 S 


47 


5 


0771 


B 814 U 


47 


7 


0776 


C P20 T66 


47 


5 


0783 


B 814 T 


47 


7 


0788 


M W84 027 


47 


8 


0795 


B 818 P20 4 


48 


7 


0803 


A W84 027 


48 


4 


0810 


B 818 


48 


4 


0814 


) P39 


48 



7 


0818 


M 


T64 


314 


7 


0825 


M 


W88 


309 


7 


0832 


M 


085 


278 


7 


0839 


M 


180 


290 


7 


0846 


M 


W89 


200 


4 


0853 


B 


*61 




8 


0857 


V 


867 


093 


2 


0865 


F 


K 




4 


0867 


/ 


278 




7 


0871 


M 


X25 


314 


7 


0878 


M 


X58 


234 


7 


0885 


M 


W89 


200 


4 


0892 


B 


+61 




4 


0896 


/ 


332 




1 


0900 


/ 






4 


0901 


B 


#61 





48 
48 
49 
49 
49 
49 
49 
49 
49 
50 
50 
50 
50 
50 
50 
50 



1401 AUTGCOCER-PASS 7 LIST,CGNDNS-INITL 2 -VERSION 3 



37721- 



PAGE 



SEQ PG LIN LABEL OP 



418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
*t**9 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 



4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
«t 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 



TSTCTL 



ERRCTL 

CTLPNT 

NOCNTL 
PRINT2 



8* 

MCS 

MCS 

M2 

MCW 

MCW 

MCW 

MCW 

B 

CS 

BW 

MCS 

MCS 

M2 

MCW 

MCW 

MCW 

BW 

MCW 

A 

B 

B 

MCW 

B 

SBR 

BW 

W 

BW 

WT 

NOP 

BER 



OPERANDS 

TSTCTL, JOBSW 

JQ8ALT,ALT 

JOBPAG,PG 

JQBPAG,PG 

J0BLIN,LIN 

JQ8LAB,LA6 

•J08S0PCC0E-2 

J0BSAV,0PRAND 

PRINT2 

OPRAND 

NOCNTL, CTLSW 

CTLALT.ALT 

CTLPAG.PG 

CTLPAG,PG 

CTLLIN,LIN 

CTLSAV,PRlNT+36 

•CTLN0PCCDE-2 

CTLPNT,CTLSW1 

•BAD STATEMENTSPRINT + 128 

+1.ERRCT1 

PRINT2 

GETMAN 

•NO CONTROL CARD' ,PRINT+130 

ERRCTL 

PNT2XT+3 

*+2,LST0Pl 

PNT2XT,TAPQP1 

3,200 

XXXX 

TPERRI 



SFX CT LOCN INSTRUCTION TYPE CARD 



* TEST 
SENStt 



TSTSSC 
TSTSSG 
TSTSSD 
TSTSSE 
SSXT 



ADD1 
ADD2 



SENSE SWITCHES FOR OUTPUT OPTIONS 

LCA •OSOUTOPN 

LCA •0 , »CNDSW1 

MCW • SLSTAPE 

SW TAP0P1 

BSS ADD1,B 

BSS ADD2.C 

BSS ADD4,G 

BSS LSTAP,D 

BSS SUPLST,E 

CW OUTOPN 

MCW 'NSTSTSIZ 

B CHKOP 

A +1, OUTOPN 

B TSTSSC 

A +2, OUTOPN 



8 


0905 


V 


970 


POO 1 


51 


7 


0913 


z 


P04 


204 


51 


7 


0920 


I 


P06 


207 


51 


7 


0927 


Y 


P06 


207 


51 


7 


0934 


M 


P09 


211 


51 


7 


0941 


M 


P15 


219 


52 


7 


0948 


M 


X61 


223 


52 


7 


0955 


M 


085 


278 


52 


4 


0962 


B 


♦61 




52 


4 


0966 


/ 


278 




52 


8 


0970 


V 


*50 


P19 1 


52 


7 


0978 


Z 


P33 


204 


53 


7 


0985 


z 


P35 


207 


53 


7 


0992 


Y 


P35 


207 


53 


7 


0999 


M 


P38 


211 


53 


7 


1006 


M 


P29 


236 


53 


7 


1013 


M 


X64 


223 


54 


8 


1020 


V 


*42 


P39 1 


54 


7 


1028 


M 


X77 


328 


54 


7 


1035 


A 


X78 


089 


54 


4 


1042 


B 


*61 




54 


4 


1046 


B 


K22 




54 


7 


1050 


M 


X93 


330 


55 


4 


1057 


B 


*35 




55 


4 


1061 


H 


/02 




55 


8 


1065 


V 


*74 


093 1 


55 


1 


1073 


2 






55 


8 


1074 


V 


*99 


092 1 


55 


8 


1082 


M 


IU3 


200 W 


56 


4 


1090 


N 


000 




56 


5 


1094 


8 


M03 


L 


56 




■» *% /■» /** 


B 


****** 




56 



7 


1103 


L 


W89 


P22 


56 


7 


1110 


L 


W89 


033 


56 


7 


1117 


M 


X94 


P24 


57 


4 


1124 


t 


092 




57 


5 


1128 


B 


/68 


8 


57 


5 


1133 


B 


/79 


C 


57 


5 


1138 


B 


/90 


G 


57 


5 


1143 


B 


SOI 


D 


57 


5 


1148 


B 


S09 


E 


57 


4 


1153 


) 


P22 




58 


7 


1157 


M 


X95 


407 


58 


4 


1164 


B 


J26 




58 


7 


1168 


A 


X78 


P22 


58 


4 


1175 


B 


/33 




58 


7 


1179 


A 


X96 


P22 


58 



1401 AUTOCODER-PASS 7 LIST,CGNDNS-INITL 2 -VERSION 3 



3772L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


468 


4 


68 




8 


TSTSSG 


469 


4 


69 


ADC4 


A 


+4,0UT0PN 


470 


4 


70 




8 


TSTSSO 


471 


4 


71 


LSTAP 


CW 


TAP0P1 


472 


4 


72 




B 


TSTSSE 


473 


4 


73 


SUPLST 


SW 


LST0P1 


474 


4 


74 




B 


SSXT 


475 


4 


75 


* 






476 


4 


76 


« PRINT AND/OR PUNCH 


477 


4 


77 


♦ 






478 


4 


78 


PRTPNH 


SBR 


EXIT+3 


479 


4 


79 




MCS 


PUNCH+75,CARDN0 


480 


4 


80 




8K 


*+2,LST0Pl 


481 


4 


81 




y 




482 


4 


82 




BW 


PUNCH1,TAP0P1 


483 


4 


83 




WT 


3,200 


484 


4 


84 




NOP 


XXXX 


485 


4 


85 




BER 


TPERRI 


486 


4 


86 




MCW 


• + S100 


487 


4 


87 




WT 


3,100 


488 


4 


88 




NOP 


XXXX 


489 


4 


89 




BER 


TPERRI 


490 


4 


90 


PUNCH1 


BCE 


*+2»CNDSWl,C 


491 


4 


91 




P 




492 


4 


92 




A 


+l,PUNCH+75 


493 


4 


93 




CS 


PRINT+132 


494 


4 


94 




CS 




495 


4 


95 




CS 


PUNCH+71 


496 


4 


96 


EXIT 


B 


XXXX 


497 


4 


97 


« 






498 


4 


98 


* READ 


ORIGINAL TAPE 


499 


4 


99 


* 






500 


5 


00 


REAC4 


SBR 


READ4X+3 


501 


5 


01 




RT 


0RIGTP,INPUT4 


502 


5 


02 




B 


CHKLG 


503 


5 


03 




BER 


TPERRI 


504 


5 


04 


REA04X 


B 


XXXX 


505 


5 


05 


CHKLG 


BCE 


READ4+4, INPLT4+12, 


506 


5 


06 




CHAIN 


12 


507 








BCE 




508 








BCE 




509 








BCE 




510 








BCE 




511 








BCE 




512 








BCE 




513 








BCE 




514 








BCE 




515 








BCE 




516 








BCE 




517 








BCE 





SEX CT LOCN INSTRUCTION TYPE CARD 



58 
59 
59 
59 
59 
59 
59 



4 


1186 


B /38 




7 


1190 


A X97 


P22 


4 


1197 


B 743 




4 


1201 


) 092 




4 


1205 


B /48 




4 


1209 


, 093 




4 


1213 


B /53 





4 


1217 


H 


T14 






59 


7 


1221 


Z 


175 


314 




60 


8 


1228 


V 


S37 


093 


1 


60 


1 


1236 


2 








60 


8 


1237 


V 


S86 


092 


1 


60 


8 


1245 


M 


*U3 


200 


W 


60 


4 


1253 


N 


000 






60 


5 


1257 


8 


M03 


L 




61 


7 


1262 


H 


X98 


100 




61 


8 


1269 


M 


IU3 


100 


w 


61 


4 


1277 


N 


000 






61 


5 


1281 


8 


M03 


L 




61 


8 


1286 


B 


S95 


033 





61 


1 


1294 


4 








61 


7 


1295 


A 


X78 


175 




62 


4 


1302 


/ 


332 






62 


1 


1306 


/ 








62 


4 


1307 


/ 


171 






62 


4 


1311 


B 


000 






62 



4 


1315 


H 


T39 






62 


8 


1319 


M 


CU4 


H31 


R 


62 


4 


1327 


B 


T40 






63 


5 


1331 


B 


M03 


L 




63 


4 


1336 


B 


000 






63 


8 


1340 


B 


T19 


H43 


MACRO 


63 




1348 


B 






GEN 


63 




1349 


B 






GEN 


63 




1350 


B 






GEN 


63 




1351 


B 






GEN 


64 




1352 


B 






GEN 


64 




1353 


B 






GEN 


64 




1354 


B 






GEN 


64 




1355 


B 






GEN 


64 




1356 


B 






GEN 


64 




1357 


B 






GEN 


64 




1358 


B 






GEN 


65 
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SEQ 


PG 


LIN 


LABEL OP 


OPERANDS 


518 






8CE 




519 


5 


07 


B 


READ4X-5 


520 


5 


08 

339 
340 
343 
344 
345 

351 
352 
355 
356 


LTORG 

DCW 


» 

»l f 

•3» 
•6* 

• ,053053NCOCOOON00001026» 

•,008015,022026,030037,044,049* 

•1,001/00111710+' 

•=07 1029^290566026/8001/099' 

•L068116, 105106,1101178101/ 19 1 • 

•15« 

«,0570571026» 

•,008015,019026,030,034041,045,053* 

» BOO 10270B0261, 001/00111310' 

•LC68112, 102 106, 113/ 101099/ 199, 027A070028) 027* 

•s* 

»T« 

•I* 
'39* 


















•7* 










*K» 










•11* 










*2» 






377 




N0Q10011C4C* 






378 




•,061068,072/061039* 






379 




• ,008015,022029,036040,047054* 






381 




•BOOTSTRAP* 

•400' 

•PAGE* 
i t 






411 




•SFX CT LOCN INSTRUCTION TYPE CARD* 






412 




•SEQ PG LIN LABEL OP OPERANDS' 

•JOB* 

•CTL» 






436 




•BAD STATEMENT* 
+ 1 






440 




•NO CONTROL CARD' 
i • 

•N 1 

+ 2 
+4 
•+• 


521 


5 


09 


ENCIN2 DCW 


• • 


522 


5 


10 


XFR 


LIBRN 



SFX CT LOCN INSTRUCTION TYPE CARD 



1 

4 

1 

1 

1 

23 

29 

15 

27 

29 

2 

11 

33 

26 

44 

1 

1 

1 

2 

1 

1 

2 

1 

11 

18 

28 

9 

3 

4 

1 

33 
3 
3 

13 
1 

15 



1359 
1360 

1364 
1365 
1366 
1389 
1418 
1433 
1460 
1489 
1491 
1502 
1535 
1561 
1605 
1606 
1607 
1608 
1610 
1611 
1612 
1614 
1615 
1626 
1644 
1672 
1681 
1684 
1688 
1689 

1758 
1761 
1764 
1777 
1778 
1793 
1794 
1795 
1796 
1797 
1798 
1799 



B 

8 T31 
1364 



B 000 



GEN 


65 




65 


LIT 


65 


LIT 


65 


LIT 


65 


LIT 


65 


LIT 


66 


LIT 


67 


LIT 


68 


LIT 


69 


LIT 


69 


LIT 


70 


LIT 


71 


LIT 


72 


LIT 


74 


LIT 


74 


LIT 


74 


LIT 


74 


LIT 


74 


LIT 


75 


LIT 


75 


LIT 


75 


LIT 


75 


LIT 


75 


LIT 


75 


LIT 


76 


LIT 


76 


LIT 


77 


LIT 


77 


LIT 


77 


LIT 


78 


LIT 


79 


LIT 


79 


LIT 


79 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


81 




81 




82 



1401 AUT0C0CER-PASS 7 PROCESS EX/END 



-VERSION 3 



37751- 



PAGE 11 



SEQ 


PQ 


LIN 


LABEL 


OP 


OPERANDS 


523 


5 


11 




JOB 


1401 AUTGCOCER-PASS 


524 


5 


12 




ORG 


ISIOCS 


525 


5 


13 


* 






526 


5 


14 


* EX, 1 


END CARDS 


527 


5 


15 


# 






528 


5 


16 


EXEND 


MCW 


»B«, INOP 


529 


5 


17 




MCW 


«B»,HGLDH*1 


530 


5 


18 




8CE 


SETAOP, TYPE,C 


531 


5 


19 




MCW 


•/ 08C»,INBOP 


532 


5 


20 




MCW 


'/ 080»,HCLDH+7 


533 


5 


21 


SETACP 


MCW 


AOPtlNAGP 


534 


5 


22 




MCW 


A0P,H0LDH+4 


535 


5 


23 




BCE 


SYMUND,AOP,= 


536 


5 


24 




8 


SETLOC 


537 


5 


25 




B 


CONDNS 


538 


5 


26 




B 


PRNTLN 


539 


5 


27 




BCE 


GET0V1,TYPE,C 


540 


5 


28 




CC 


1 


541 


5 


29 




MCW 


US2Q0 


542 


5 


30 




MCS 


ERRCNT,PRINT+4 


543 


5 


31 




C 


PRINT+4,8LANK4=4 


544 


5 


32 




BU 


SETERH 


545 


5 


33 


TSTCOR 


BW 


E0J0B,ADDRSW=1 


546 


5 


34 




MCW 


WORDl,PRINT+20 


547 


5 


35 




B 


WTAPE 


548 


5 


36 




BW 


*+2»LSTOP 


549 


5 


37 




W 




550 


5 


38 


EGJG8 


BW 


RESET, TAPGP 


551 


5 


39 




WTM 


3 


552 


5 


40 




B 


RESET 


553 


5 


41 


SETERH 


MCW 


•ERRORS*, PRINT+11 


ce/, 
3PT 










PRINT+4,* 1* 


555 


5 


43 




BU 


*+8 


556 


5 


44 




MCW 


BLANK1,PRINT+11 


557 


5 


45 




B 


WTAPE 


558 


5 


46 




BW 


♦+2.LST0P 


559 


5 


47 




W 




560 


5 


48 




cs 


PRINT+11 


561 


5 


49 




B 


TSTCOR 


562 


5 


50 


* 






563 


5 


51 


* CONDENSE 


EX, END CARDS 


564 


5 


52 


* 






565 


5 


53 


NGCARD 


C 


WMLOCAWMSTR 


566 


5 


54 




BE 


TSTEND 


567 


5 


55 




CW 


NEWSW 


568 


5 


56 


ENDRTN 


BW 


NOCARD,NEWSW 


569 


5 


57 




B 


PNCHCD 


570 


5 


58 


TSTEND 


BCE 


EXCUTE,TYPE,C 


571 


5 


59 




CS 


PUNCH+71 


572 


5 


60 




MCW 


H0LDH+7,PUNCH+46 
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7 


0794 


M 


D12 
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85 


7 


0801 


M 


D12 


093 


85 


8 


0808 


B 


830 


075 C 


85 


7 


0816 


M 


D21 


301 


85 


7 


0823 


M 


D28 


D99 


85 


7 


0830 


M 


070 


297 


86 


7 


0837 


M 


070 


096 


86 


8 


0844 


8 


L09 


070 = 


86 


4 


0852 


B 


U18 




86 


4 


0856 


8 


L54 




86 


4 


0860 


8 


Y54 




86 


8 


0864 


8 


263 


075 C 


87 


2 


0872 


F 


1 




87 


7 


0874 


M 


029 


200 


87 


7 


0881 


I 


C66 


204 


87 


7 


0888 


C 


204 


D33 


87 


5 


0895 


8 


945 


/ 


87 


8 


0900 


V 


928 


D34 1 


88 


7 


0908 


M 


S49 


220 


88 


4 


0915 


B 


J24 




88 


8 


0919 


V 


928 


C70 1 


88 


1 


0927 


2 






88 


8 


0928 


V 


543 


C69 1 


88 


5 


0936 


U 


tU3 


M 


89 


4 


0941 


B 


543 




89 


7 


0945 


M 


D40 


211 


89 


7 


0952 


C 


204 


044 


89 


5 


0959 


B 


971 


/ 


89 


7 


0964 


M 


D30 


211 


89 


4 


0971 


8 


J24 




89 


8 


0975 


V 


984 


C70 1 


90 


1 


0983 


2 






90 


4 


0984 


/ 


211 




90 


4 


0988 


B 


900 




90 



7 


0992 


C C75 C78 


90 


5 


0999 


B +20 S 


90 


4 


1004 


) G27 


90 


8 


1008 


V 992 G27 1 


91 


4 


1016 


8 P62 


91 


8 


1020 


B 4=57 075 C 


91 


4 


1028 


/ 171 


91 


7 


1032 


M D99 146 


91 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




573 


5 


61 




MCS 


PUNCH+75tCARDN0 




574 


5 


62 




SBR 


PNHXF+3.LSTCD 




575 


5 


63 




B 


TSTPCH 




576 


5 


64 


EXCUTE 


MCE 


WMSTR*PUNCH+71 




577 


5 


65 




MCW 


•N00OOOO'tPUNCH+46 




578 


5 


66 




MCW 


H0LDH+4.PUNCH+71 




579 


5 


67 




MCS 


PUNCH+75,CARDN0 




580 


5 


68 




SBR 


PNHXT+3 f EX0UT 




581 


5 


69 




B 


TSTPCH 




582 


5 


70 


* 








583 


5 


71 


* PUNCH COMPATIBILITY CARDS 




584 


5 


72 


* 








585 


5 


73 


EXOUT 


CS 


PUNCH+71 




586 


5 


74 




B 


READOG 




587 


5 


75 




BSP 


ORIGTP 




588 


5 


76 




C 


MNEM0N-2,'JCB» 




589 


5 


77 




BU 


*+8 




590 


5 


78 




MCW 


IMAGE+80.PUNCH+80 




591 


5 


79 




MCW 


W0RD2,PUNCH*39 




592 


5 


80 




LCA 


W0RD3»PUNCH+66 




593 


5 


81 




MCW 


PUNCH+66.PUNCH+50 




594 


5 


82 




BCE 


*+2,C0NDSW,C 




595 


5 


83 




P 






596 


5 


84 




B 


WTAP2 




597 


5 


85 




CS 


PUNCH+66 




598 


5 


86 




A 


+l,PONCH+75 




599 


5 


87 




MCW 


W0R04,PUNCH+2i 




600 


5 


88 




MCW 


WORDS, PUNCH+71 




601 


5 


89 




SBR 


PNHXT+3»0UTEX 




602 


5 


90 




BCE 


*+2,C0NDSW,0 




603 


5 


91 




P 






AAA 

\* w ~r 




92 






UTAO - ) 




605 


5 


93 




B 


NEWCRD 




606 


5 


94 


LSTCO 


CS 


PUNCH+80 




607 


5 


95 




BCE 


*+4,C0NDSW*C 




608 


5 


96 




P 






609 


5 


97 




SS 


8 




610 


5 


98 


OUTEX 


B 


CND0UT+7 




611 


5 


99 


W0RD1 


OCW 


•OBJECT CORE EXCEEDED' 




612 


6 


00 


W0RD2 


OCW 


', 015022 3 C24056, 029036, 040047, 


►0540611001* 


613 


6 


01 


W0RD3 


DCW 


S001008B001' 




614 


6 


02 


W0RD4 


DCW 


• ,068072)063067/061039» 




615 


6 


03 


W0RD5 


DCW 


• t 0010011C4C« 




616 


6 


04 


0V2GM 


DCW 


• * 




617 


6 


05 




XFR 


LIBRN 





SFX CT LOCN INSTRUCTION TYPE CARD 



7 


1039 


Z 175 314 


91 


7 


1046 


H 090 Sll 


92 


4 


1053 


B Q21 


92 


7 


1057 


E Oil 171 


92 


7 


1064 


M D51 146 


92 


7 


1071 


H D96 171 


92 


7 


1078 


I 175 314 


92 


7 


1085 


H Q90 496 


93 


4 


1092 


B Q21 


93 



4 


1096 


/ 


171 




93 


4 


1100 


B 


B09 




93 


5 


1104 


U 


CU4 


B 


93 


7 


1109 


C 


H48 


054 


93 


5 


1116 


B 


/28 


/ 


93 


7 


1121 


M 


110 


180 


94 


7 


1128 


M 


S88 


139 


94 


7 


1135 


L 


S99 


166 


94 


7 


1142 


M 


166 


150 


94 


8 


1149 


B 


/58 


CIO 


94 


1 


1157 


4 






94 


4 


1158 


B 


+43 




95 


4 


1162 


/ 


166 




95 


7 


1166 


A 


D55 


175 


95 


7 


1173 


M 


T20 


121 


95 


7 


1180 


M 


T31 


171 


95 


7 


1187 


H 


Q90 


S26 


95 


8 


1194 


B 


S03 


CIO 


96 


1 


1202 


4 






96 














4 


1207 


B 


Q34 




96 


4 


1211 


/ 


180 




96 


8 


1215 


B 


S26 


CIO 


96 


1 


1223 


4 






96 


2 


1224 


K 


8 




97 


4 


1226 


B 


+ 14 




97 


20 


1249 








97 


39 


1288 








98 


11 


1299 








99 


21 


1320 








99 


11 


1331 








100 


1 


1332 








100 






B 


000 




101 
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SEQ 


P6 


LIN 


LABEL 


OP 


OPERANDS 


618 


6 


06 




JOS 


1401 AUTOCODER-PASS 7 


619 


6 


07 


* 






620 


6 


08 


« READ 


SECOND HALF OF PAIN PROGRAM 


621 


6 


09 


» 






622 


6 


10 




ORG 


201 


623 


6 


11 


INIT2 


RTW 


SYSTAP,20CO 


624 


6 


12 




NOP 


XXXX 


625 


6 


13 




BER 


TPERR 


626 


6 


14 




RTW 


XTRATP, SAVCGN 


627 


6 


15 




NOP 


XXXX 


628 


6 


16 




BER 


TPERR 


629 


6 


17 




RWO 


XTRATP 


630 


6 


18 




CW 


GMSAVE,WMSW=1 


631 


6 


19 




cw 


ENDE1,END£2 


632 


6 


20 




SW 


GM,181 


633 


6 


21 




SW 


0V1GM 


634 


6 


22 




WTW 


XTRATP, ISIOCS 


635 


6 


23 




NOP 


XXXX 


636 


6 


24 




BER 


TPERR 


637 


6 


25 




RWD 


XTRATP 


638 


6 


26 




CW 


0V1GM 


639 


6 


27 




ZA 


+5,LINCT 


640 


6 


28 




BCE 


RESET, NG0UT,1 


641 


6 


29 




B 


GET 


642 


6 


30 




B 


SETUP 


643 


6 


31 




OCW 


* i 


644 


6 


32 


# 






645 


6 


33 


* PAIN 


LINE 


PROGRAM 


646 


6 


34 


* 






647 


6 


35 




ORG 


333 


648 


6 


36 


GM 


DC 


t t 


Of"* 


* 

o 




w 






650 


6 


38 


* TAPE 


REDUNDANCY ROUTINE 


651 


6 


39 


* 






652 


6 


40 


TPERR 


SBR 


XR2 


653 


6 


41 




SBR 


REDXT+3 


654 


6 


42 




MZ 


PLUS9,XR2 


655 


6 


43 




MCW 


40Q0-10+X2,TPINST+7 


656 


6 


44 




MN 


TPINST+3,BSPl+3 


657 


6 


45 




MCW 


TPINST+7,INST2+7 


658 


6 


46 


8SP1 


BSP 


INITAP 


659 


6 


47 




BCE 


WRTRED,TPINST+7,W 


660 


6 


48 




MCW 


PLUS9,REACCT 


661 


6 


49 


TPINST 


RT 


INITAP, XXXX 


662 


6 


50 




BER 


RDRERR 


663 


6 


51 


REDXT 


B 


XXXX 


664 


6 


52 


RDRERR 


MN 


TPINST+3,BSP2+3 


665 


6 


53 


BSP2 


BSP 


INITAP 


666 


6 


54 




S 


PLUS1,READCT 


667 


6 


55 




BWZ 


TPINST, REAOCT,B 
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104 


4 
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N 


000 
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5 


0213 


8 


334 


L 


104 


8 


0218 


L 


<U6 


B98 R 


104 


4 


0226 


N 


000 




104 


5 


0230 


8 


334 


L 


104 


5 


0235 


U 


(U6 


R 


104 


7 


0240 


) 


C72 


D56 


105 


7 


0247 


) 


Z94 


H27 


105 


7 


0254 


t 


333 


181 


105 


4 


0261 


t 


U17 




105 


8 


0265 


L 


(U6 


794 W 


105 


4 


0273 


N 


000 




105 


5 


0277 


B 


334 


L 


106 


5 


0282 


U 


(U6 


R 


106 


4 


0287 


) 


U17 




106 


7 


0291 


+ 


D57 


F13 


106 


8 


0298 


B 


543 


C71 1 


106 


4 


0306 


B 


A24 




106 


4 


0310 


B 


595 




106 


1 


0314 








107 



4 
4 
7 
7 
7 
7 
5 
8 
7 
8 
5 
4 
7 
5 
7 
8 



0333 



0334 
0338 
0342 
0349 
0356 
0363 
0370 
0375 
0383 
0390 
0398 
0403 
0407 
0414 
0419 
0426 



0333 



094 
406 
538 
IRO 
393 
397 
(UO 
479 
538 
(UO 
407 
000 
393 
(UO 
539 
390 



094 

397 

373 

506 

B 

397 W 

540 

000 R 

L 

417 
8 

540 
540 B 



108 



108 
108 
108 
108 
109 
109 
109 
109 
109 
110 
110 
110 
UO 
110 
110 
111 



1401 AUTOCODER-PASS 7 LEFT MAIN LINE 



-VERSION 3 



3T73L 



PAGE 



14 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


668 


6 


56 




MN 


TPINST+3,TPHALT+6 


669 


6 


57 


TPHALT 


H 


XXXX.790 


670 


6 


58 




MCW 


TPINST+7,*+8 


671 


6 


59 




RT 


INITAP»XXXX 


672 


6 


60 




BSS 


BSP1.E 


673 


6 


61 




H 


XXXX,712 


674 


6 


62 




B 


REDXT 


675 


6 


63 


WRTREO 


SKP 


SYSTAP 


676 


6 


64 




BCE 


SUBCTR,WRTCTR-1, 5 


677 


6 


65 




A 


PLUS1, WRTCTR 


678 


6 


66 


INST2 


WT 


INITAP,XXXX 


679 


6 


67 




BER 


BSP1 


680 


6 


68 




B 


REDXT 


681 


6 


69 


SUBCTR 


S 


WRTCTR 


682 


6 


70 




MN 


TPINST+3,*+7 


683 


6 


71 




H 


XXXX,760 


684 


6 


72 




B 


INST2 


685 


6 


73 


PLUS9 


DCW 


+9 


686 


6 


74 


PLUS1 


OCW 


+ 1 


687 


6 


75 


READCT 


DCW 


= 1 


688 


6 


76 


WRTCTR 


DCW 


=2 


689 


6 


77 


* 






690 


6 


78 


* GET i 


PASS F 




691 


6 


79 


* 






692 


6 


60 


RESET 


LCA 


SSAVE,201 


693 


6 


81 




LCA 




694 


6 


82 




RT 


SYSTAP, 332 


695 


6 


83 




CW 


181,333 


696 


6 


84 




RTW 


SYSTAP, 2000 


697 


6 


85 




NOP 


XXXX 


698 


6 


86 




BER 


TPERR 


699 


6 






MTU 

iivn 




700 


6 


88 




MCW 




701 


6 


89 




B 


2002 


702 


6 


90 


• 






703 


6 


91 


* BEGIN MAIN 


LINE PROGRAM 


704 


6 


92 


* 






705 


6 


93 


SETUP 


CS 


PRINT+132 


706 


6 


94 




CS 




707 


6 


95 


GETGRG 


a 


READOG 


708 


6 


96 


* 






709 


6 


97 


* DETERMINE 


TYPE 


710 


6 


98 


* 






711 


6 


99 


ANALWK 


sw 


TYPESW=1 


712 


7 


00 




MN 


TYPE,TYPEA=1 


713 


7 


01 




BCE 


BYPASS, TYPE, I 


714 


7 


02 




BCE 


BYPASS, TYPE, 8 


715 


7 


03 




BCE 


BYPASS, TYPE, I 


716 


7 


04 




BCE 


BYPASS, TYPE,H 


717 


7 


05 




BCE 


PRCWRK, ALTER, 



SFX CT LOCN INSTRUCTION TYPE CARD 



7 


0434 





393 


447 


111 


7 


0441 


• 


000 


790 


111 


7 


0448 


M 


397 


462 


111 


8 


0455 


M 


cuo 


000 R 


111 


5 


0463 


B 


370 


E 


112 


7 


0468 


• 


000 


712 


112 


4 


0475 


B 


403 




112 


5 


0479 


U 


CU1 


E 


112 


8 


0484 


B 


516 


541 5 


112 


7 


0492 


A 


539 


542 


112 


8 


0499 


M 


cuo 


000 W 


113 


5 


0507 


B 


370 


L 


113 


4 


0512 


B 


403 




113 


4 


0516 


S 


542 




113 


7 


0520 





393 


533 


113 


7 


0527 


• 


000 


760 


113 


4 


0534 


B 


499 




113 


1 


0538 








114 


1 


0539 








114 


1 


0540 








114 


2 


0542 








114 



7 


0543 


L 


C68 


201 


114 


1 


0550 


L 






114 


8 


0551 


M 


tui 


332 R 


114 


7 


0559 


) 


181 


333 


115 


8 


0566 


L 


(Ul 


-00 R 


115 


4 


0574 


N 


000 




115 


5 


0578 


B 


334 


L 


115 


t 


*» a ««» *•* 


P5 


£UJL 




115 


1 


0590 


M 






115 


4 


0591 


8 


-02 




115 



4 


0595 


/ 


332 


1 


0599 


/ 




4 


0600 


B 


B09 



116 
116 
116 



4 


0604 


, D58 




116 


7 


0608 


D 075 059 




116 


8 


0615 


B S85 075 


( 


116 


8 


0623 


B S85 075 


8 


116 


8 


0631 


B S85 075 


I 


117 


8 


0639 


8 S85 075 


H 


117 


8 


0647 


8 881 080 




117 



1401 AUTOCOCER-PASS 7 LEFT MAIN LINE 



-VERSION 3 



3773L 



PAGE 15 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


718 


7 


06 


ANALOG 


BCE 


S£TCOM,LA8EL-5,» 


719 


7 


07 






BCE 


MACPNT,IMAGE+75,R 


720 


7 


08 






BCE 


ISIOCS, IMAGE+75.W 


721 


7 


09 






BCE 


MACPNT+7»IMAGE+75,S 


722 


7 


10 






BCE 


MACPNT+7,IM*GE+75,Z 


723 


7 


11 






C 


MNEMON-2,'J0B« 


724 


7 


115 






BE 


DOJOB 


725 


7 


12 






C 


ALTER, ALTNO 


726 


7 


13 






BU 


SEQERR 


727 


7 


14 






B 


SETFRE 


728 


7 


15 






CW 


TYPESW 


729 


7 


16 






BCE 


INSTR,TYPE, 


730 


7 


17 






m 


TYPE,XR2 


731 


7 


18 






A 


XR2 


732 


7 


19 






A 


XR2 


733 


7 


20 






B 


♦+1+X2 


734 


7 


21 






8 


DA 


735 


7 


22 






B 


CONST 


736 


7 


23 






B 


DSA 


737 


7 


24 






B 


GETOV2 


738 


7 


25 






B 


SFX 


739 


7 


26 






B 


TYPERR 


740 


7 


27 






B 


ORG 


741 


7 


28 






B 


DS 


742 


7 


29 






B 


TYPERR 


743 


7 


30 






B 


TYPERR 


744 


7 


31 


* 








745 


7 


32 


* 


FACRO CARD 




746 


7 


33 


* 








747 


7 


34 


ISIOCS 


HCW 


•IOCS', KIND-1 


748 


7 


35 






B 


MACPNT+7 


749 


7 


36 


F3»Ut*N I 


SJ** * • 


t Ui^nm U Tltft 


750 


7 


37 






B 


SETFRE 


751 


7 


38 






BCE 


CALERR, IMAGE+86, 7 


752 


7 


39 






B 


COMXT 


753 


7 


40 


CALERR 


HCW 


•OVERCALLSPRINT+123 


754 


7 


41 






B 


BMPERR 


755 


7 


42 






B 


COMXT 


756 


7 


43 


* 








757 


7 


44 


* 


NEN 


JOB CARD 


758 


7 


45 


* 








759 


7 


46 


00JOB 


MCW 


OPERND,JOB 


760 


7 


47 






BW 


DOIDT.NEKSW 


761 


7 


48 






B 


PNCHCD 


762 


7 


49 


OOIDT 


MCW 


IMAGE+80,PUNCH+80 


763 


7 


50 






S 


LINCT 


764 


7 


51 






B 


PRTHDG 


765 


7 


52 






B 


MACPNT+7 


766 


7 


53 


* 








767 


7 


54 


* 


PROGRAM GENERATED RECORD 



SFX CT LOCN INSTRUCTION TYPE CARD 



8 


0655 


B J72 H36 * 


117 


8 


0663 


B 805 105 R 


118 


8 


0671 


B 794 105 U 


118 


8 


0679 


B 812 105 S 


118 


8 


0687 


B 812 105 2 


118 


7 


0695 


C H48 D54 


118 


5 


0702 


B 843 S 


119 


7 


0707 


C 080 114 


119 


5 


0714 


B +83 / 


119 


4 


0719 


B T01 


119 


4 


0723 


) D58 


119 


8 


0727 


B V43 075 


119 


7 


0735 


D 075 094 


120 


4 


0742 


A 094 


120 


4 


0746 


A 094 


120 


4 


0750 


B 7N4 


120 


4 


0754 


B W52 


120 


4 


0758 


B #62 


120 


4 


0762 


B 969 


120 


4 


0766 


B +94 


121 


4 


0770 


B L43 


121 


4 


0774 


B S78 


121 


4 


0778 


B K12 


121 


4 


0782 


B K85 


121 


4 


0786 


B S78 


121 


4 


0790 


B S78 


121 



7 


0794 


n 


D63 


308 


122 


4 


0801 


B 


812 




122 


t 


fsafsc 




uoo 




122 


4 


0812 


B 


TO! 




122 


8 


0816 


B 


828 


116 7 


122 


4 


0824 


B 


J85 




122 


7 


0828 


M 


D76 


323 


123 


4 


0835 


B 


L28 




123 


4 


0839 


B 


J85 




123 


7 


0843 


M 


102 


C62 


123 


8 


0850 


V 


862 


G27 1 


123 


4 


0858 


B 


P62 




123 


7 


0862 


M 


110 


180 


124 


4 


0869 


S 


F13 




124 


4 


0873 


B 


-00 




124 


4 


0877 


B 


812 




124 



1401 AUTGCOCER-PASS 7 LEFT MAIN LINE 



-VERSION 3 



3773L 



PAGE 



16 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


768 


7 


55 


# 








769 


7 


56 


PRCWRK 


8CE 


XTRA»TYPE,Y 


770 


7 


57 






CW 


OP+1 


771 


7 


58 






MCS 


A0P,PRINT+11 


772 


7 


59 






SW 


OP+l 


773 


7 


60 






BCE 


ADCON,TYPE,S 


774 


7 


61 






BCE 


LITRAL, TYPEA,1 


775 


7 


62 






B 


TYPERR 


776 


7 


63 


* 








777 


7 


64 


* 


LITERAL GREATER THAN 30 CHARA 


778 


7 


65 


• 








779 


7 


66 


XTRA 


SW 


PRINT+27 


780 


7 


67 






MCW 


FIXFRM+72,0PRAND 


781 


7 


68 






CHAIN 


5 


782 










MCW 




783 










MCW 




784 










MCW 




785 










MCW 




786 










MCW 




787 


7 


69 






B 


BYPASS 


788 


7 


70 


• 








789 


7 


71 


• 


ACCON CARD 




790 


7 


72 


• 








791 


7 


73 


AOCON 


MCW 


•ADCONSKIND 


792 


7 


74 






SW 


PRINT+27 


793 


7 


75 






MCW 


FIXFRM+53,PRINT+4C 


794 


7 


76 






MCW 


FIXFRM+16,0PC0DE-2 


795 


7 


77 


DSA 


MCW 


B0P,PRINT+95 


796 


7 


78 






MCW 


B0P,H0LDH+3 


797 


7 


79 






B 


SETAOD 


798 


7 


80 






BCE 


SYMUND,BOP,= 


799 


7 


81 






D 


C t- -r i v t- 


800 


7 


82 


* 








801 


7 


83 


* 


LITERAL + 


AREA DEFINITION CAR 


802 


7 


84 


• 








803 


7 


85 


LITRAL 


BWZ 


PROLIT, TYPE, S 


804 


7 


86 






BWZ 


DADC,FIXFRM+1,B 


805 


7 


87 






MCW 


•RMARKSKINO 


806 


7 


88 






BCE 


PR0LIT+7,TYPE,A 


807 


7 


89 






MCW 


«G , ,KIND-4 


808 


7 


90 






B 


PR0LIT+7 


809 


7 


91 


PROLIT 


MCW 


•LITNKINC-2 


810 


7 


92 






MCW 


FIXFRM+53.PRINT+57 


811 


7 


93 






MCW 


FIXFRM+16,0PC0DE-2 


812 


7 


94 


CONST 


B 


SETADD 


813 


7 


95 






A 


•OOSCOUNT 


814 


7 


96 






C 


COUNT, • 00' 


815 


7 


97 






BL 


GOOD 


816 


7 


98 






M2 


Z0NE-1,STSTMT 


817 


7 


99 






B 


SETLIT 



SFX CT LOCN INSTRUCTION TYPE CARD 



8 


0881 


B 924 075 


Y 


124 


4 


0889 


) 068 




124 


7 


0893 


Z 070 211 




124 


4 


0900 


t 068 




125 


8 


0904 


B 944 075 


S 


125 


8 


0912 


B 999 059 


1 


125 


4 


0920 


B S78 




125 



4 


0924 


t 


227 




125 


7 


0928 


M 


072 278 


MACRO 


125 


1 


0935 


M 




GEN 


125 


1 


0936 


M 




GEN 


126 


1 


0937 


M 




GEN 


126 


1 


0938 


M 




GEN 


126 


1 


0939 


M 




GEN 


126 


4 


0940 


B 


S85 




126 



7 


0944 


M 


D81 


309 


126 


4 


0951 


§ 


227 




126 


7 


0955 


M 


053 


240 


127 


7 


0962 


M 


016 


223 


127 


7 


0969 


M 


073 


295 


127 


7 


0976 


M 


073 


D95 


127 


4 


0983 


B 


$45 




127 


8 


0987 


8 


L09 


073 = 


128 


j. 
t 


0995 


a 
a 


/56 




1 OQ 

ICO 



8 


0999 


V 


♦41 


075 S 


128 


8 


1007 


V 


S28 


001 B 


128 


7 


1015 


M 


D86 


309 


128 


8 


1022 


B 


*48 


075 A 


129 


7 


1030 


M 


087 


305 


129 


4 


1037 


B 


*48 




129 


7 


1041 


M 


D90 


307 


129 


7 


1048 


M 


053 


257 


129 


7 


1055 


M 


016 


223 


130 


4 


1062 


B 


S45 




130 


7 


1066 


A 


D92 


007 


130 


7 


1073 


C 


007 


D92 


130 


5 


1080 


B 


#=96 


T 


130 


7 


1085 


Y 


188 


005 


130 


4 


1092 


B 


/56 




131 



1401 AUT0C0CER-PASS 7 LEFT MAIN LINE 



-VERSION 3 



3773L 



PAGE 17 



SEQ PQ LIN LABEL QP 



818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
366 
867 



8 00 
8 01 
8 02 
8 03 
8 04 
8 05 
8 06 
8 07 
8 08 
8 09 
8 10 
8 11 
8 12 
8 13 
8 14 
8 15 
8 16 
8 17 
8 18 
8 19 
8 20 
8 21 
8 22 
8 23 
8 24 
8 25 
8 26 
8 27 
8 28 
8 29 
8 30 
8 31 
8 32 
8 33 
8 34 
8 35 
8 36 
8 37 
8 38 
8 39 
8 40 
8 41 
8 42 
8 43 
8 44 
8 45 
8 46 
8 47 
8 48 
8 49 



GOOD 



SETLIT 
LITOUT 
UNSIGN 
AREAOF 



DADC 



BCE 

BWZ 

MCW 

BCE 

BwZ 

MCW 

MZ 

MZ 

B 

B 

B 

B 

MCW 

B 

8W 

B 

MCW 

MCW 

MCW 

MCW 

MCW 

B 

B 

B 

CS 

CS 

B 



OPERANDS 

AREADF,PRINT+27,= 

AREADF,FIXFRM+4,B 

0PRAND,H0LDCT-1 

SETLIT, PRINT+27,» 

UNSIGN, PRINT+27, 2 

COUNT, XR1 

BLANK4,PRINT+27+Xl 

PRINT+27, H0LDH+X1 

SETLOC 

CONDNS 

PRNTLN 

BYPASS 

QPRAND»HQLD0T=52 

SETLIT 

»+5,TYP£SW 

SETLIT 

FIXFRM+13.LAB 

BLANK4-2,PRINT+31 

COUNT 

» = « 

*AREA»,KIND-1 

SETLIT 

SETADD 

CONONS 

PRINT+132 

BYPASS 



SFX CT LOCN INSTRUCTION TYPE CARD 



« 

* SET CONDENSE ADDRESSES FOR CONSTANTS 

* 

SETADD SBR ADDXT+3 

ZA LABADDtLOADAD 

MCW LOADAD 

S COUNT, WMACDR 

A +1,WMADDR 
ADCXT B XXXX 
* 

» GET NEXT RECORDS 
« 

TYPERR 
BYPASS 



* FREE 

* 

SETFRE 



H XXXX, 770 

B GET 

BW ANALWK.TYPESW 

B GETGRG 

FORM RECORD TO PRINT AREA 



8 


1096 


B 


/83 


227 = 


131 


8 


1104 


V 


/83 


004 B 


131 


7 


1112 


M 


278 


E43 


131 


8 


1119 


B 


/56 


227 • 


131 


8 


1127 


V 


/72 


227 2 


132 


7 


1135 


M 


007 


089 


132 


7 


1142 


Y 


033 


2S7 


132 


7 


1149 


Y 


227 


DZ2 


132 


4 


1156 


B 


U18 




132 


4 


1160 


B 


L54 




132 


4 


1164 


8 


Y54 




133 


4 


1168 


B 


S85 




133 


7 


1172 


M 


278 


E44 


133 


4 


1179 


8 


/56 




133 


8 


1183 


V 


/95 


058 1 


133 


4 


1191 


8 


/56 




133 


7 


1195 


M 


013 


219 


133 


7 


1202 


M 


D31 


231 


134 


4 


1209 


M 


007 




134 


4 


1213 


M 


E45 




134 


7 


1217 


M 


E49 


308 


134 


4 


1224 


B 


/56 




134 


4 


1228 


B 


S45 




134 


4 


1232 


B 


L54 




134 


4 


1236 


/ 


332 




135 


1 


1240 


/ 






135 


4 


1241 


B 


S85 




135 



4 


1245 


H 


S77 




f 




■f* 


rt i i 


E83 


4 


1256 


M 


E83 




7 


1260 


S 


007 


E78 


7 


1267 


A 


D55 


E78 


4 


1274 


B 


000 




7 


1278 


• 


000 


770 


4 


1285 


8 


A24 




8 


1289 


V 


604 


D58 1 


4 


1297 


B 


600 





135 

135 
135 
136 
136 



136 
136 
136 
136 



SBR 
MCS 
MCS 
MZ 



FREEXT+3 
ALTNO,ALT 
PAGENO,PG 
PAGENO,PG 



4 


1301 


H T89 


136 


7 


1305 


Z 114 204 


137 


7 


1312 


Z H32 207 


137 


7 


1319 


Y H32 207 


137 



1401 AUTOCODER-PASS 7 LEFT MAIN LINE 



-VERSION 3 



3773L 



PAGE 



18 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




868 


8 


50 




MCW 


LIN£NO,LIN 




869 


8 


51 




MCW 


LABEL, LAB 




870 


3 


52 




mcw 


MNEMON, OPCODE 




871 


8 


53 




MCW 


OPERND,OPRAND 




872 


8 


54 




BCE 


IOGEN, IMAGE+75,Z 




873 


8 


55 




BCE 


IOGEN, IMAGE+75,Y 




874 


8 


56 




BCE 


GENSTM,IMAGE+75,C 




875 


8 


57 




BCE 


GENSTM, IMAGE+75,S 




876 


3 


58 


FREEXT 


B 


XXXX 




877 


8 


59 


IOGEN 


MCW 


«IO»,KIND 




878 


8 


60 


GENSTM 


MCW 


«GEN«»KINC-2 




879 


8 


61 




BCE 


CGMERR,IMAG£+86,8 




880 


8 


62 




B 


FREEXT 




881 


8 


63 




DCW 


t • 




882 


8 


64 


GV1GM 


DC 


« t 




883 


8 


65 


* 








884 


8 


66 


« ASSEMBLED 


INFORMATION TO PRINT 


AREA 


885 


8 


67 


* 








386 


8 


68 


SETLOC 


SBR 


LOCXT+3 




887 


8 


69 




MCS 


COUNT, CT 




888 


8 


70 




MCW 
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167 


7 


2250 


C 


297 


C09 


167 


5 


2257 


B 


K97 


T 


167 


4 


2262 


B 


U18 




168 


4 


2266 


B 


/64 




168 


7 


2270 


M 


G13 


330 


168 


4 


2277 


B 


L28 




168 


4 


2281 


B 


K34 




168 



8 2285 
4 2293 



B L09 070 
B K62 



4 


2297 


H 


LOS 


4 


2301 


) 


D34 


4 


2305 


B 


000 



168 
168 



169 
169 
169 



4 


2309 


H L27 


169 


7 


2313 


M G17 327 


169 


4 


2320 


B L28 


169 


4 


2324 


B 000 


169 



4 


2328 


H L42 


170 


7 


2332 


A D55 C66 


170 


4 


2339 


B 000 


170 



7 


2343 


M H51 G18 


170 


4 


2350 


B /64 


170 



1401 AUTOCODER-PASS 7 RIGHT MAIN LINE 



-VERSION 3 



3774L 



PAGE 23 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1102 


10 


84 


* 








1103 


10 


85 


CCNDNS 


S8R 


CONDXT+3 


1104 


10 


86 






CW 


BIGSW,DCSW 


1105 


10 


87 






BM 


CGNOXT,STSTMT 


1106 


10 


88 






BW 


PNCHCDtWMSW 


1107 


10 


89 


* 








1108 


10 


90 


* 


PROCESS RECORO 


1109 


10 


91 


* 








1110 


10 


92 


NXTRCD 


BCE 


DOWM,TYPEA,0 


1111 


10 


93 






BCE 


ENDRTN,TYPEA*3 


1112 


10 


94 






BWZ 


TSTDC,TYPE,8 


1113 


10 


95 


« 








1114 


10 


96 


« 


TEST 


ROOM 


ON CARD 


1115 


10 


97 


* 








1116 


10 


98 


TSTRQM 


C 


COUNT,' 39' 


1117 


10 


99 






BL 


TSTCQN 


1118 


11 


00 






MCW 


PNHL0C,R0CMCT=3 


1119 


11 


01 






A 


COUNT, ROO^CT 


1120 


11 


02 






C 


R0GMCT,'G39» 


1121 


11 


03 






BL 


SETPNH 


1122 


11 


04 






8M 


RSTCTR,NEWSW=1 


1123 


11 


05 


• 








1124 


11 


06 


* 


TEST 


SEQUENCE 


1125 


11 


07 


• 








1126 


11 


08 






MCW 


COUNTRY, SECCT=5 


1127 


11 


09 






A 


COUNT, SEQCT 


1128 


11 


10 






C 


LOADAD, SEQCT 


1129 


11 


11 






BU 


SETPNH 


1130 


11 


12 






A 


CGUNT,C0UNTR 


1131 


11 


13 


« 








1132 


11 


14 


* 


MOVE 


DATA 


TO PUNCH AREA 




n 


13 


w 








1134 


11 


16 


MVCATA 


SBR 


XR3,H0LDH 


1135 


11 


17 






A 


C0UNT,XR3 


1136 


11 


18 






A 


COUNT, PNHLOC 


1137 


11 


19 






MCW 


PNHL0CXR2 


1138 


11 


20 






MCW 


XXXX+X3,PUNCH+X2 


1139 


11 


21 






CM 


DATASW=1 


1140 


11 


22 






BW 


FIRST, NEWSW 


1141 


11 


23 






BWZ 


CNDOUT,TYPE,B 


1142 


11 


24 


* 








1143 


11 


25 


» 


SET I 


WORD 1 


«!ARK ADDRESS 


1144 


11 


26 


* 








1145 


11 


27 


DGWM 


MCW 


WMADDR,CNVACD=5 


1146 


11 


28 






B 


CNVRT 


1147 


11 


29 






A 


+3,WML0C 


1148 


11 


30 






MCW 


WML0CXR1 


1149 


11 


31 






MCW 


CNVADD,WMADCR-2 


1150 


11 


32 






MCW 


WMADDR-2,XXXX+X1 


1151 


11 


33 






C 


XRl,+WMSTR-3 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 2354 

? 235g 

8 2365 

8 2373 



H +42 

")'"' H17 G48 

V +39 005 K 

V P62 056 1 



170 
170 
171 
171 



8 


2381 


8 


N39 


D59 





171 


8 


2389 


B 


*08 


D59 


3 


171 


8 


2397 


V 


017 


075 


B 


172 



7 


2405 


C 007 G20 


172 


5 


2412 


B Q91 T 


172 


7 


2417 


M C81 G23 


172 


7 


2424 


A 007 G23 


172 


7 


2431 


C G23 G26 


173 


5 


2438 


B 009 T 


173 


8 


2443 


V N98 G27 1 


173 



7 


2451 


M G32 G37 


173 


7 


2458 


A 007 G37 


173 


7 


2465 


C E83 G37 


174 


5 


2472 


B 009 / 


174 


7 


2477 


A 007 G32 


174 



7 


2484 


H 099 D92 


174 


7 


2491 


A 007 099 


174 


7 


2498 


A 007 C81 


175 


7 


2505 


M C81 094 


175 


7 


2512 


M 0+0 1-0 


175 


4 


2519 


) G38 


175 


8 


2523 


V 053 G27 1 


175 


8 


2531 


V +07 075 B 


176 



7 


2539 


M E78 G43 


176 


4 


2546 


B P16 


176 


7 


2550 


A G44 C75 


176 


7 


2557 


M C75 089 


176 


7 


2564 


M G43 £76 


177 


7 


2571 


M E76 0*0 


177 


7 


2578 


C 089 G47 


177 



1401 AUTGCGCER-PASS 7 RIGHT MAIN LINE 



-VERSION 3 



3774L 



PAGE 



24 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1152 


11 


34 




BU 


CNDOUT 


1153 


11 


35 




sw 


WMSW 


1154 


11 


36 




B 


CNDOUT 


1155 


11 


37 


RSTCTR 


MCW 


LOAOADtCOUNTR 


1156 


11 


38 




B 


MVDATA 


1157 


11 


39 


SETPNH 


3 


PNCHCD 


1158 


11 


40 




B 


NXTRCD 


1159 


11 


41 


TSTDC 


BW 


CGMPWM t N£WSW 


1160 


11 


42 




B 


TSTROM 


1161 


11 


43 


COMPWM 


C 


WMLOCAWMSTR 


1162 


11 


44 




BE 


TSTROM 


1163 


11 


45 




SW 


DCSW=1 


1164 


11 


46 




B 


PNCHCD 


1165 


11 


47 




B 


TSTROM 


1166 


11 


48 


« 






1167 


11 


49 


* FIRST DATA ON CARD 


1168 


11 


50 


• 






1169 


11 


51 


FIRST 


CW 


NEWSW 


1170 


11 


52 




8WZ 


PR0DC,TYPE,8 


1171 


11 


53 




B 


CNDOUT 


1172 


11 


54 


* 






1173 


11 


55 


* CONDENSE 


DC CARDS 


1174 


11 


56 


• 






1175 


11 


57 


PRCCC 


MCW 


MSPUNCH+47 


1176 


11 


58 




MCW 


WMADDR,CNVACD 


1177 


11 


59 




B 


CNVRT 


1178 


11 


60 




MCW 


CNVADD»WMADCR-2 


1179 


11 


61 




MCW 


WMADDR~2,WMSTR-15 


1180 


11 


62 




MCW 


WMAD0R-2 


1181 


11 


63 




A 


+6,WML0C 


1182 


11 


64 




B 


CNDOUT 


nan 

J. JtW 


1 1 


65 


JL 






1184 


11 


66 


* CONVERT 5 


TO 3 DIGIT ADDRESS 


1185 


11 


67 


* 






1186 


11 


68 


CNVRT 


SBR 


CNVXT+3 


1187 


11 


69 




BAV 


*+l 


1188 


11 


70 


ADDAGN 


A 


+96,CNVADC-3 


1189 


11 


71 




BAV 


ADDAGN 


1190 


11 


72 




MZ 


CNVAD0-4,CNVADD 


1191 


11 


73 




MN 


CNVADD-3t*+4 


1192 


11 


74 




M2 


Z0NE,CNVACD-2 


1193 


11 


75 


CNVXT 


B 


xxxx 


1194 


11 


76 


* 






1195 


11 


77 


* PUNCH A CARD 


1196 


11 


78 


* 






1197 


11 


79 


PNCHCD 


SBR 


PNHXT+3 


1198 


11 


80 




BW 


EDIT,DCSW 


1199 


11 


81 




BW 


EDIT.OATASW 


1200 


11 


82 




MCW 


COUNTR,CNVACD 


1201 


11 


83 




B 


CNVRT 



SFX CT LOCN INSTRUCTION TYPE CARD 



5 


2585 


B 


+07 


/ 


177 


4 


2590 


t 


D56 




177 


4 


2594 


B 


+07 




177 


7 


2598 


M 


E83 


G32 


178 


4 


2605 


B 


M84 




178 


4 


2609 


B 


P62 




178 


4 


2613 


B 


L81 




178 


8 


2617 


V 


029 


G27 1 


178 


4 


2625 


B 


M05 




178 


7 


2629 


C 


C75 


C78 


178 


5 


2636 


B 


M05 


S 


179 


4 


2641 


t 


G48 




179 


4 


2645 


B 


P62 




179 


4 


2649 


B 


M05 




179 


4 


2653 


) 


G27 




179 


8 


2657 


V 


069 


075 B 


179 


4 


2665 


B 


+07 




179 



7 


2669 


M G49 147 


180 


7 


2676 


M E78 G43 


180 


4 


2683 


B P16 


180 


7 


2687 


M G43 E76 


180 


7 


2694 


M E76 C96 


180 


4 


2701 


M E76 


180 


7 


2705 


A G50 C75 


181 


4 


2712 


B +07 


181 



4 


2716 


H 


P61 




181 


5 


2720 


B 


P25 


I 


181 


7 


2725 


A 


G52 


G40 


181 


5 


2732 


8 


P25 


2 


181 


7 


2737 


Y 


G39 


G43 


181 


7 


2744 


D 


G40 


P54 


182 


7 


2751 


Y 


189 


G41 


182 


4 


2758 


B 


000 




182 


4 


2762 


H 


Q90 




182 


8 


2766 


V 


Q07 


G48 1 


182 


8 


2774 


V 


Q07 


G38 1 


182 


7 


2782 


M 


G32 


G43 


183 


4 


2789 


8 


P16 




183 



1401 AUTGCOOER-PASS 7 RIGHT MAIN LINE 



-VERSION 3 



3774L 



PAGE 25 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 




1202 


11 


84 






MCW 


CNVADDtWMSTR-21 




1203 


11 


85 






MCW 


PNHLOCWMSTR-24 




1204 


11 


86 


EDIT 


MCE 


WMSTR,PUNCH+71 




1205 


11 


87 






MN 


•0 , ,PUNCH+41 




1206 


11 


88 


TSTPCH 


BCE 


*+2,CGNDSW,0 




1207 


11 


89 






P 






1208 


11 


90 






B 


WTAP2 




1209 


11 


91 


* 










1210 


11 


92 


* 


RESET COUNTERS + SWITCHES 




1211 


11 


93 


* 










1212 


11 


94 


NEWCRD 


A 


+l,PUNCH+?5 




1213 


11 


95 






CS 


PUNCH+71 




1214 


11 


96 






LCA 


*L0 , , * 


1 N 


1215 


11 


97 






SW 


NEWSWtOATASW 




1216 


11 


98 






CW 


WMSWfDCSW 




1217 


11 


99 






MCW 


•OOOSPNHLOC 




1218 


12 


00 






MCW 


AWMSTR,WML0C 




1219 


12 


01 






MCW 


« 00100 1040040040040040040040 < 


• ,WMSTR 


1220 


12 


02 


PNHXT 


B 


XXXX 




1221 


12 


03 


• 










1222 


12 


04 


* 


CONSTANT 


GREATER THAN 39 CHARACTERS 




1223 


12 


05 


* 










1224 


12 


06 


TSTCON 


By 


*+5,NEWSW 




1225 


12 


07 






B 


PNCHCD 




1226 


12 


08 






MCW 


COUNT, H0L0CT=2 




1227 


12 


09 






MCW 


LOADAO,COUNTR 




1228 


12 


10 






MCW 


•39«, COUNT 




1229 


12 


11 






s 


'39NH0LDCT 




1230 


12 


12 






s 


HOLDCT,COUNTR 




1231 


12 


13 






MZ 


Z0NE-3,H0LDCT 




1232 


12 


14 






SW 


BIGSW=1 




i233 


12 


15 






MCW 


i ill innn *»»»*#»ii«j_*r 




1234 


12 


16 






B 


MVDATA 




1235 


12 


17 


BIGRN 


8 


PNCHCD 




1236 


12 


18 






CW 


8IGSW 




1237 


12 


19 






MCW 


HOLDCT, COUNT 




1238 


12 


20 






MCW 


»A», TYPE 




1239 


12 


21 






MCW 


H0LD0T.H0L0CT-39 




1240 


12 


22 






MCW 


SAVEWM,WMADCR 




1241 


12 


23 






A 


•39SWMA0DR 




1242 


12 


24 






B 


RSTCTR 




1243 


12 


25 


* 










1244 


12 


26 


• 


EXIT 


FROM 


CONDENSE ROUTINE 




1245 


12 


27 


* 










1246 


12 


28 


CNDOUT 


MCS 


PUNCH+75,CARDNO 




1247 


12 


29 






S 


XR3+1 




1248 


12 


30 






S 






1249 


12 


31 






S 






1250 


12 


32 






BW 


BIGRN,8IGSW 




1251 


12 


33 






MCW 


BLANK!, HOLDCT 





SFX CT LGCN INSTRUCTION TYPE CARD 



»PUNCH+71 



7 


2793 


M G43 


C90 


183 


7 


2800 


M C81 


C87 


183 


7 


2807 


E bii 


171 


183 


7 


2814 


D F87 


141 


183 


8 


2821 


B 030 


CIO 


184 


1 


2829 


4 




184 


4 


2830 


B +43 




184 



7 


2834 


A D55 175 


184 


4 


2841 


/ 171 


184 


7 


2845 


L G84 171 


184 


7 


2852 


, G27 G38 


184 


7 


2859 


) 056 G48 


185 


7 


2866 


M G87 C81 


185 


7 


2873 


M C78 C75 


185 


7 


2880 


M H14 Oil 


185 


4 


2887 


B 000 


185 



8 


2891 


V 


R03 


G27 1 


186 


4 


2899 


B 


P62 




186 


7 


2903 


M 


007 


H16 


186 


7 


2910 


M 


E83 


G32 


186 


7 


2917 


M 


G20 


007 


186 


7 


2924 


S 


G20 


H16 


187 


7 


2931 


s 


H16 


G32 


187 


7 


2938 


Y 


186 


H16 


187 


4 


2945 


t 


H17 




187 


f 


47T7 


u 

n 


E78 




1D7 
*U 1 


4 


2956 


B 


H84 




187 


4 


2960 


8 


P62 




188 


4 


2964 


) 


H17 




188 


7 


2968 


M 


H16 


007 


188 


7 


2975 


M 


H23 


075 


188 


7 


2982 


M 


E44 


E05 


188 


7 


2989 


M 


H22 


E78 


188 


7 


2996 


A 


G20 


E78 


189 


4 


3003 


B 


N98 




189 



7 


3007 


I 175 


314 


189 


4 


3014 


S 100 




189 


1 


3018 


s 




189 


1 


3019 


s 




189 


8 


3020 


V R60 


H17 1 


189 


7 


3028 


M D30 


E44 


190 



14C1 AL'TOCGfER-PASS 7 RIGHT MAIN LINE 



-VERSION 3 



3774L 



PAGE 



26 



S£Q 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1252 


12 


34 




MCW 


HOLDDT 


1253 


12 


35 


CONDXT 


B 


xxxx 


1254 


12 


36 


WTAP2 


SBR 


WT2XT+3 


1255 


12 


37 




BW 


WT2XT,TAPCP 


1256 


12 


38 




MCW 


»+»,100 


1257 


12 


39 




WT 


3,100 


1258 


12 


40 




NOP 


XXXX 


1259 


12 


41 




BER 


TPERR 


1260 


12 


42 


WT2XT 


B 


XXXX 


1261 


12 


43 


« 






1262 


12 


44 


* SEQUENCE ERROR ON INPUT RECO 


1263 


12 


45 


* 






1264 


12 


46 


SECERR 


H 


XXXX ,777 


1265 


12 


47 




8 


SEQERR 


1266 


12 


48 


GET0V2 


RTW 


SYSTAP»ISIOCS 


1267 


12 


49 




NOP 


XXXX 


1268 


12 


50 




BER 


TPERR 


1269 


12 


51 




CW 


0V2GM 


1270 


12 


52 




8SP 


SYSTAP 


1271 


12 


53 




B 


EXEND 


1272 


12 


54 


* 






1273 


12 


55 


* GET I 


RECORD 


FROM WORKING TAPE 


1274 


12 


56 


* 






1275 


12 


57 


GET 


SBR 


WORKXT+3 


1276 


12 


58 




C 


BLKCT,KBLKNG 


1277 


12 


59 




BU 


NXTREC 


1278 


12 


60 




S 


HOLDA 


1279 


12 


61 




SBR 


LGTCK+6,INPUT5+13 


1280 


12 


62 




RT 


WORKTP, INPUTS 


1281 


12 


63 




B 


CHKLGT 


1282 


12 


64 




BER 


TPERR 






03 


ki \t t n r- r~ 
WAI!\CU 


* 




1284 


12 


66 




MCW 


BLKCT,XR3 


1285 


12 


67 




MCW 


FIXINP,FIXFRM+8Q 


1286 


12 


68 




CHAIN 


10 


1287 








MCW 




1288 








MCW 




1289 








MCW 




1290 








MCW 




1291 








MCW 




1292 








MCW 




1293 








MCW 




1294 








MCW 




1295 








MCW 




1296 








MCW 




1297 


12 


69 




S 


XR3+1 


1298 


12 


70 




s 




1299 


12 


71 




s 




1300 


12 


72 


WCRKXT 


8 


XXXX 


1301 


12 


73 


* 







SFX CT LOCN INSTRUCTION TYPE CARD 



4 


3035 


M E44 




190 


4 


3039 


8 000 




190 


4 


3043 


H +82 




190 


8 


3047 


V +79 


C69 1 


190 


7 


3055 


M H24 


100 


190 


8 


3062 


M <U3 


100 W 


191 


4 


3070 


H 000 




191 


5 


3074 


B 334 


L 


191 


4 


3079 


B 000 




191 



7 


3083 


. 000 777 


191 


4 


3090 


B +83 


191 


8 


3094 


L tUl 794 R 


192 


4 


3102 


N 000 


192 


5 


3106 


B 334 L 


192 


4 


3111 


5 T32 


192 


5 


3115 


U (Ul B 


192 


4 


3120 


8 794 


192 



4 


3124 


H 


808 






192 


7 


3128 


C 


COO 


C04 




193 


5 


3135 


B 


A68 


/ 




193 


4 


3140 


S 


C01 






193 


7 


3144 


H 


880 


131 




193 


8 


3151 


M 


(U5 


118 


R 


193 


4 


3159 


B 


B59 






193 


5 


3163 


B 


334 


L 




194 






* 


tt"Sjt 








7 


3175 


M 


COO 


099 




194 


7 


3182 


M 


IA7 


080 


MACRO 


194 


1 


3189 


M 






GEN 


194 


1 


3190 


M 






GEN 


194 


1 


3191 


M 






GEN 


194 


1 


3192 


M 






GEN 


195 


1 


3193 


M 






GEN 


195 


1 


3194 


M 






GEN 


195 


1 


3195 


M 






GEN 


195 


1 


3196 


M 






GEN 


195 


1 


3197 


M 






GEN 


195 


1 


3198 


M 






GEN 


195 


4 


3199 


S 


100 






196 


1 


3203 


S 








196 


1 


3204 


S 








196 


4 


3205 


B 


000 






196 



1401 AUTOCODER-PASS 7 RIGHT WAIN LINE 



-VERSION 3 



3774L 



PAGE 27 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


1302 


12 


74 


* READ 


ORIGINAL TAPE 


1303 


12 


75 


« 






1304 


12 


76 


READOG 


SBR 


ORIGXT+3 


1305 


12 


77 




MCW 


BLANK1,IMAGE+21 


1306 


12 


78 




S 


IMAGE+20 


1307 


12 


79 




s 




1308 


12 


80 




s 




1309 


12 


81 




s 




1310 


12 


82 




SBR 


LGTCK+6,INPUT4+12 


1311 


12 


83 




RT 


0RIGTP,INPUT4 


1312 


12 


84 




B 


CHKLGT 


1313 


12 


85 




BER 


TPERR 


1314 


12 


86 




S 


XR2 + 1 


1315 


12 


87 


ORIGXT 


B 


xxxx 


1316 


12 


88 


* 






1317 


12 


89 


* CHECK FOR 


SHORT RECORDS 


1318 


12 


90 


* 






1319 


12 


91 


CHKLGT 


SBR 


XR2 


1320 


12 


92 




SBR 


LGTXT+3 


1321 


12 


93 




MZ 


«B , ,XR2 


1322 


12 


94 


L6TCK 


BCE 


4000-12+X2,XXXX, 


1323 


12 


95 




CHAIN 


12 


1324 








BCE 




1325 








BCE 




1326 








BCE 




1327 








BCE 




1328 








BCE 




1329 








BCE 




1330 








BCE 




1331 








BCE 




1332 








BCE 




1333 








BCE 




1334 








BCE 




1335 








BCE 




1336 


12 


96 


LGTXT 


B 


XXXX 


1337 


12 


97 


HOLOA 


DCW 


+0000 


1338 


12 


98 


BLKCT 


EQU 


HOLD A- 1 


1339 


12 


99 


K8LKNG 


DCW 


»080» 


1340 


13 


00 


CBJCOR 


OCW 


i 3999* 


1341 


13 


01 


CGNDSW 


DCW 


•o« 


1342 


13 


02 


JOB 


DCW 


= 52 


1343 


13 


03 


ERRCNT 


OCW 


•0000' 


1344 


13 


04 




OCW 


t 1 


1345 


13 


05 


SSAVE 


DCW 


t 1 


1346 


13 


06 


TAPCP 


DCW 


fl • 


1347 


13 


07 


LSTCK 


LCW 


1 1 


1346 


13 


ce 


r'CCLT 


ro, 


t • 


1349 


13 


09 


SAVCON 


ECU 


HOLDA-3 


1350 


13 


10 


GMSAVE 


DC 


t t 


1351 


13 


li 


WKLCC 


DSA 


WMSTR-21 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


3209 


H 858 




196 


7 


3213 


M D30 


H51 


196 


4 


3220 


S H50 




196 


1 


3224 


S 




197 


1 


3225 


s 




197 


1 


3226 


s 




197 


7 


3227 


H 880 


H43 


197 


8 


3234 


M <U4 


H31 R 


197 


4 


3242 


B B59 




197 


5 


3246 


B 334 


L 


197 


4 


3251 


S 095 




198 


4 


3255 


B 000 




198 



4 


3259 


H 


094 




198 


4 


3263 


H 


B97 




198 


7 


3267 


Y 


012 094 




198 


8 


3274 


8 


IQ8 000 


MACRO 


198 




3282 


B 




GEN 


198 




3283 


B 




GEN 


199 




3284 


B 




GEN 


199 




3285 


8 




GEN 


199 




3286 


B 




GEN 


199 




3287 


B 




GEN 


199 




3288 


8 




GEN 


199 




3289 


8 




GEN 


199 




3290 


B 




GEN 


200 




1 *»rt 1 


o 
u 






OAft 




3292 


B 




GEN 


200 




3293 


B 




GEN 


200 


4 


3294 


B 


000 




200 


4 


3301 

3300 








200 


3 


3304 








200 


5 


3309 








201 


1 


3310 








201 


52 


3362 








203 


4 


3366 
3367 
3368 
3369 
3370 
3371 
3298 








203 
203 
203 
203 
204 
204 


1 


3372 








204 


3 


3375 


C90 




204 



SEQ PG LIN LABEL OP 



1352 13 12 

1353 13 13 

1354 13 14 

1355 13 15 

1356 13 16 

531 
532 

543 
545 

553 

577 



901 
904 
918 
919 

934 



964 
976 
987 

1021 
1022 

1039 



AWHSTR OSA 
PNHLOC OCW 
NUMBER DCW 
WMSTR OCW 

LTORG 
DCW 



BLANK4 
ADDRSW 



630 WMSVi 



711 


TYPESW 


712 


TYPEA 


749 




753 




791 




805 





830 HCLDOT 



kHADDR 
LOAOAD 



LINCT 



080* 
080* 



1401 AUTOCOCER-PASS 7 RIGHT MAIN LINE 



OPERANDS 

WMSTR-21 

•000* 

•001* 

•001001040040040040040040040* 

• 

*B* 

*/ 

*/ 

«i* 

=04 

=01 

•ERRORS' 

• 1* 

*N000000* 

•JOB" 

+ 1 

=01 

+ 5 

=01 

=01 

IOCS* 

MACRO 1 

OVERCALL* 

ADCQN* 

RMARK* 

G« 

LIT* 

00* 
=52 



— t 

AREA* 
10 s 
GEN* 
X* 

LABEL* 

BAD STATEMENT* 
=05 
=05 

OP* 
FIELD 1 
SBF* 
DA • 

NO B X L* 

0081* 
=02 
PAGE* 
SFX CT 
SEQ PG 
0* 

ADCR* 



LOCN INSTRUCTION TYPE CARD* 
LIN LABEL OP OPERANDS' 



VERSION 


3 


3774L 


PAGE 


28 




SFX CT 


LOCN 


INSTRUCTION TYPE 


CARD 




3 


3378 


C90 


204 




3 


3381 




204 




3 


3384 




204 




27 


3411 


3412 


205 




1 


3412 


LIT 


205 




9 


3421 


LIT 


205 




7 


3428 


LIT 


206 




1 


3429 


LIT 


206 




4 


3433 


AREA 


206 




1 


3434 


AREA 


206 




6 


3440 


LIT 


206 




4 


3444 


LIT 


206 




7 


3451 


LIT 


206 




3 


3454 


LIT 


207 




1 


3455 


LIT 


207 




1 


3456 


AREA 


207 




1 


3457 


LIT 


207 




1 


3458 


AREA 


207 




1 


3459 


AREA 


207 




4 


3463 


LIT 


207 




5 


3468 


LIT 


208 




8 


3476 


LIT 


208 




5 


3481 


LIT 


208 




5 


3486 


LIT 


208 




1 


3487 


LIT 


208 




3 


3490 


LIT 


208 




2 


3492 


LIT 


208 




52 


3544 


AREA 


210 




1 


3545 


LIT 


210 




4 


3549 


LIT 


210 




c 


■ace i 
j j j *. 


1 T T 

«_ x » 






3 


3554 


LIT 


210 




1 


3555 


LIT 


211 




5 


3560 


LIT 


211 




13 


3573 


LIT 


211 




5 


3578 


AREA 


211 




5 


3583 


AREA 


211 




3 


3586 


LIT 


211 




5 


3591 


LIT 


211 




3 


3594 


LIT 


212 




3 


3597 


LIT 


212 




9 


3606 


LIT 


212 




5 


3611 


LIT 


212 




2 


3613 


AREA 


212 




4 


3617 


LIT 


212 




36 


3653 


LIT 


213 




33 


3686 


LIT 


214 




1 


3687 


LIT 


214 




5 


3692 


LIT 


214 



1401 AUTOCGCER-PASS 7 RIGHT MAIN LINE 



•VERSION 3 



3774L 



PAGE 



29 



SEQ 


PQ LIN 

1052 
1068 


LA8EL 


OP 


OPERANDS 

•MACRO ERROR* 
• UNDEF ORG* 
» SYM' 




1098 


SFXCTR 




=01 
•39* 




1118 


ROCfCT 




=03 
• 039* 




1122 


NEWSW 




=01 




1126 


COUNTR 




=05 




1126 


SEQCT 




=05 




1139 


DATASW 




=01 




1145 


CNVAOO 




=05 
+3 




1151 






+WMSTR-3 




1163 


DCSk 




=01 
•>■ 
+6 


















+96 




1214 






*L0 , , * 
•000* 




1219 






* 00100 1040040040040040040040* 




1226 


HOLCCT 




=02 




1232 


8IGSN 




=01 




1233 


SAVEWM 




=05 
*A« 
« + « 

+80 


1357 


13 17 


ENDE2 


DCW 


i t 


1358 


13 18 


BLANK1 


EQU 


8LANK4-3 


1359 


13 19 


HCLDH 


EQU 


HOLDDT-52 


1360 


13 20 




EX 


LIBRN 


1361 


13 21 




END 


LIDRfl 



SFX CT LOCN INSTRUCTION TYPE CARD 



11 

10 

4 

1 

2 

3 

3 

1 
5 
5 
1 
5 
1 
3 
1 
1 
1 
2 
32 
3 



3703 
3713 
3717 
3718 
3720 
3723 
3726 
3727 
3732 
3737 
3738 
3743 
3744 
3747 
3748 
3749 
3750 
3752 
3784 
3787 



27 3814 
2 3816 



3817 
3822 
3823 
3824 
3826 
3827 
3430 
3492 



008 



LIT 


215 


LIT 


215 


LIT 


215 


AREA 


215 


LIT 


215 


AREA 


215 


LIT 


215 


AREA 


216 


AREA 


216 


AREA 


216 


AREA 


216 


AREA 


216 


LIT 


216 


ADCON 


216 


AREA 


217 


LIT 


217 


LIT 


217 


LIT 


217 


LIT 


217 


LIT 


218 


LIT 


218 


AREA 


218 


AREA 


218 


AREA 


218 


LIT 


218 


LIT 


219 


LIT 


219 




219 



8 000 



220 



CLEAR STORAGE 1 
CLEAR STORAGE 2 
BOOTSTRAP 



,008015,0 19026, G3C, 03404 1,045, 053, 0570571026 

L0681 12, 102106,1 13/101099/199, G27A0700 28 )027B001027080261, 001/00111310 

,008015,022029,036040,047054,061068,072/061039 ,0010011040 



1401 AUTOCOCER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSIQN 3 



3782L 



PAGE 



SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


101 


1 


01 


000 


JOB 


1401 AUTOCODE 


102 


1 


02 




CTL 


630 1 


103 


1 


03 


* 






104 


1 


04 


* EQUATES USED BY PROGRAM 


105 


1 


05 


* 






106 


1 


06 


INITAP 


EQU 


CUO 


107 


1 


07 


INTAPE 


ECU 


<U5 


108 


1 


08 


OUTAPE 


EQU 


<U6 


109 


1 


09 


PUNCH 


EQU 


100 


110 


1 


10 


OUTPUT 


EQU 


PUNCH+1 


111 


1 


11 


IMAGE 


EQU 





112 


1 


12 


XXXX 


EQU 





113 


1 


13 


COUNT 


EQU 


IMAGE+7 


114 


1 


14 


LABADD 


EQU 


IMAGE+61 


115 


1 


15 


SUPADD 


EQU 


IMAGE+66 


116 


1 


16 


ACP 


EQU 


IMAGE+70 


117 


1 


17 


BOP 


EQU 


IMAGE+73 


118 


1 


18 


DMCC 


ECU 


IMAGE+74 


119 


1 


19 


TYPE 


EQU 


IMAGE+75 


120 


1 


20 


PRINT 


EQU 


200 


121 


1 


21 


LIBRN 


ECU 





122 


1 


22 




ORG 


87 


123 


1 


23 


XR1 


DCW 


000 


124 


1 


24 




DC 


00 


125 


1 


25 


XR2 


OCW 


000 


126 


1 


26 




OC 


00 


L4L f 




C i 








128 


1 


28 




DC 


00 


129 


1 


29 


« 






130 


1 


30 


* INITIALIZATION ROUTINE 


131 


1 


31 


• 






132 


1 


32 




ORG 


336 


133 


1 


33 


ZONE 


DCW 


•2SKB« 


134 


1 


34 


INITLZ 


RWD 


OUTAPE 


135 


1 


35 




C 


OUTOPN^ 1 


136 


1 


36 




BH 


ENDJOB 


137 


1 


37 




C 


0UTGPN,«7» 


138 


1 


38 




BL 


ENDJOB 


139 


1 


39 




RWD 


4 


140 


1 


40 




RWD 


INTAPE 


141 


1 


41 




CW 


LTAPSW,PNH4SW 


142 


1 


42 




MCW 


SSOP,TSTSS 


143 


1 


43 


* 






144 


1 


44 


» TEST 


FOR 


CTL CARD 


145 


1 


45 


* 






146 


1 


46 


REAC4 


MCW 


«013*,LGTCK+6 


147 


1 


47 




RT 


4,1 



SFX CT LOCN INSTRUCTION TYPE CARD 



1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 



(UO 

(U5 

<U6 

0100 

0101 

0000 

0000 

0007 

0061 

0066 

0070 

0073 

0074 

0075 

0200 

0000 

0089 
0091 
0094 
0096 



2 0101 



0087 



0336 



4 


0339 








5 


0340 


U 


(U6 


R 


7 


0345 


C 


-00 


P07 


5 


0352 


B 


-55 


U 


7 


0357 


C 


-00 


P08 


5 


0364 


B 


-55 


T 


5 


0369 


U 


(U4 


R 


5 


0374 


U 


<U5 


R 


7 


0379 


) 


P25 


P26 


7 


0386 


M 


-01 


475 



7 0393 M Pll 058 

8 0400 M {U4 001 R 



1401 AUTGCOCER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 



37821- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


148 


1 


48 




6 


CHKLGT 


149 


1 


49 




8ER 


TPERR 


150 


1 


50 




C 


18,*J0B* 


151 


1 


51 




BU 


CKCTL 


152 


1 


52 




MCW 


79,IDENT=4 


153 


1 


53 




CW 


J0ESW=1 


154 


1 


54 




B 


READ4 


155 


1 


55 


CKCTL 


C 


18, f CTL« 


156 


1 


56 




new 


0UT0PN,23 


157 


1 


57 




RWD 


4 


158 


1 


58 




BE 


TSTSS 


159 


1 


59 




LCA 


•33S22 


160 


1 


60 


TSTSS 


BSS 


SENSW,F 


161 


1 


61 


TSTCP 


BCE 


LTAPOP,23,2 


162 


1 


62 




BCE 


LTAP0P,23,3 


163 


1 


63 




BCE 


LTAP0P,23,6 


164 


1 


64 




BCE 


LTAP0P,23,7 


165 


1 


65 




SW 


LTAPSW=1 


166 


1 


66 




B 


START 


167 


1 


67 


• 






168 


1 


68 


» OPTION TO 


PUNCH NEW SOURCE 


169 


1 


69 


« 






170 


1 


70 


PNH40P 


SW 


PNH4SW=1 


171 


1 


71 




B 


TSTLSW 


172 


1 


72 


♦ 






173 


1 


73 


* TEST 


SENSE 


SWITCHES FOR OP 


174 


1 


74 


* 






175 


1 


75 


SENSW 


LCA 


•0S23 


176 


1 


76 




BSS 


ADD1,B 


177 


1 


77 


TSTSSC 


BSS 


AD02,C 


178 


1 


78 


TSTSSG 


BSS 


ADD4,G 




A 


79 


03UU 1 


f I.! 


23 


180 


1 


80 




B 


TSTOP 


181 


1 


81 


A0D1 


A 


*1',23 


182 


1 


82 




B 


TSTSSC 


183 


1 


83 


ADD 2 


A 


»2».23 


184 


1 


84 




B 


TSTSSG 


185 


1 


85 


ADD4 


A 


'4S23 


186 


1 


86 




B 


SSOUT 


187 


1 


87 


* 






188 


1 


88 


* SET I 


UP CLEAR STORAGE RECOR 


189 


1 


89 


* 






190 


1 


90 


LTAPCP 


CS 


PUNCH+80 


191 


1 


91 




SW 


GRPFRK 


192 


1 


92 




LCA 


GRPMRK,PUNCH+99 


193 


1 


93 




LCA 


IDENT,PUNCH*79 


194 


1 


94 




LCA 


> t 


195 


1 


95 




LCA 


•B007 1 


196 


1 


96 




LCA 


• )021» 


197 


1 


97 




LCA 


•B047L* 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


0408 


B 


037 






6 


5 


0412 


B 


M33 


L 




7 


7 


0417 


C" 


i 8 


P14 




7 


5 


0424 


B 


444 


/ 




7 


7 


0429 


M 


079 


P18 




7 


4 


0436 


) 


P19 






7 


4 


0440 


B 


393 






7 


7 


0444 


C 


018 


P22 




7 


7 


0451 


H 


-00 


023 




8 


5 


0458 


U 


<U4 


R 




8 


5 


0463 


8 


475 


S 




8 


7 


0468 


L 


P24 


022 




8 


5 


0475 


B 


528 


F 




8 


8 


0480 


B 


591 


023 


2 


8 


8 


0488 


8 


591 


023 


3 


9 


8 


0496 


B 


591 


023 


6 


9 


8 


0504 


B 


591 


023 


7 


9 


4 


0512 


t 


P25 






9 


4 


0516 


B 


+17 






9 



4 0520 
4 0524 



» P26 
B *49 



7 


0528 


L 


P27 


023 


5 


0535 


B 


558 


B 


5 


0540 


B 


569 


C 


5 


0545 


B 


580 


G 




rtrert 








4 


0554 


B 


480 




7 


0558 


A 


P28 


023 


4 


0565 


B 


540 




7 


0569 


A 


P07 


023 


4 


0576 


B 


545 




7 


0580 


A 


P29 


023 


4 


0587 


B 


550 





4 


0591 


/ 


180 




4 


0595 


t 


P06 




7 


0599 


L 


P06 


199 


7 


0606 


L 


P18 


179 


4 


0613 


L 


P31 




4 


0617 


L 


P35 




4 


0621 


L 


P39 




4 


0625 


L 


P44 





9 
10 



10 
10 
10 
10 

1 rt 
AW 

10 

11 
11 
11 
11 
11 
11 



11 

12 
12 
12 
12 
12 
12 
12 



1401 AUTOCODER-PASS 8 LOAD TAPE-RIGHT MAIN-VERSION 3 



37821- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


198 


1 


98 




LCA 


»LiU1001R« 


199 


1 


99 




LCA 


'.* 


200 


2 


00 




LCA 


BSPTU1 


201 


2 


01 


* 






202 


2 


02 


* TEST 


OBJECT CORE SIZE 


203 


2 


03 


* 






204 


2 


04 




C 


22,«3< 


205 


2 


05 




BE 


IS4K 


206 


2 


06 




BH 


IS4K 


207 


2 


07 




C 


22,«6» 


208 


2 


08 




BL 


IS4K 


209 


2 


09 




LCA 


•IO + SPUNCH+44 


210 


2 


10 




LCA 


•099* 


211 


2 


11 




LCA 


»B053 t 


212 


2 


12 




LCA 


•M074G99* 


213 


2 


13 




LCA 


*)099* 


214 


2 


14 




LCA 


•B001/* 


215 


2 


15 




LCA 


«C004041» 


216 


2 


16 




LCA 


•=044004* 


217 


2 


17 




LCA 


*/I9I« 


218 


2 


18 




BCE 


BTSTRP, 22,6 


219 


2 


19 




BCE 


IS12K,22,5 


220 


2 


20 




MZ 


Z0N£-2,PUNCH+4 


221 


2 


21 




B 


BTSTRP 


222 


2 


22 


IS12K 


MZ 


Z0NE-l,PUNCH+4 


223 


2 


23 




B 


BTSTRP 


224 


2 


24 


IS4K 


LCA 


*I0» ,PUNCH+75 


225 


2 


25 




LCA 


«B053 , ,PUNCH+46 


226 


2 


26 




LCA 


•M080099* 


227 


2 


27 




LCA 


«)099« 


228 


2 


28 




LCA 


•BOOl* 


229 


2 


29 




LCA 


■ n A-» AAA-^A ft 


230 


2 


30 




LCA 


*)002 f 


231 


2 


31 




LCA 


•A075003* 


232 


2 


32 




LCA 


, ,002« 


233 


2 


33 




t* V#r^ 


•/I99« 


234 


2 


34 




SW 


PUNCH+80 


235 


2 


35 




BCE 


BTSTRP, 22, 3 


236 


2 


36 




MCW 


«Z«,PUNCH+2 


237 


2 


37 




BCE 


BTSTRP, 22, 2 


238 


2 


38 




MCW 


•T»,PUNCH+2 


239 


2 


39 




BCE 


BTSTRP, 22,1 


240 


2 


40 




MCW 


•I 1 .PUNCH+2 


241 


2 


41 


* 






242 


2 


42 


* SET 


UP BOOTSTRAP RECORD 


243 


2 


43 


* 






244 


2 


44 


BTSTRP 


B 


WRITE1 


245 


2 


45 




CW 


PUNCH+99 


246 


2 


46 




LCA 


GRPMRK, PUNCH+80 


247 


2 


47 




LCA 


• SPUNCH + 24 



SFX CT LOCN INSTRUCTION TYPE CARD 



13 
13 
13 



4 


0629 


L 


P52 


4 


0633 


L 


P53 


4 


0637 


L 


093 



7 


0641 


C 


022 


P54 


13 


5 


0648 


B 


747 


S 


13 


5 


0653 


B 


747 


U 


13 


7 


0658 


C 


022 


P55 


13 


5 


0665 


B 


747 


T 


14 


7 


0670 


L 


P58 


144 


14 


4 


0677 


L 


P61 




14 


4 


0681 


L 


P65 




14 


4 


0685 


L 


P72 




14 


4 


0689 


L 


P76 




14 


4 


0693 


L 


P81 




14 


4 


0697 


L 


P88 




15 


4 


0701 


L 


P95 




15 


4 


0705 


L 


P99 




15 


8 


0709 


B 


842 


022 6 


15 


8 


0717 


B 


736 


022 5 


15 


7 


0725 


Y 


337 


104 


15 


4 


0732 


B 


842 




15 


7 


0736 


Y 


338 


104 


16 


4 


0743 


B 


842 




16 


7 


0747 


L 


Q01 


175 


16 


7 


0754 


L 


P65 


146 


16 


4 


0761 


L 


Q08 




16 


4 


0765 


L 


P76 




16 


4 


0769 


L 


Q12 




16 


1 




i_ 






i -» 

X 1 


4 


0777 


L 


Q24 




17 


4 


0781 


L 


Q31 




17 


4 


0785 


L 


035 




17 


4 


0789 


L 


Q39 




17 


4 


0793 


• 


180 




17 


8 


0797 


B 


842 


022 3 


17 


7 


0805 


M 


Q40 


102 


18 


8 


0812 


B 


842 


022 2 


18 


7 


0820 


M 


Q41 


102 


18 


8 


0827 


B 


842 


022 1 


18 


7 


0835 


M 


Q42 


102 


18 



4 


0842 


B 


-30 




4 


0846 


) 


199 




7 


0850 


L 


P06 


180 


7 


0857 


L 


Q43 


124 



19 
19 
19 
19 
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3782L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


248 


2 


48 






LCA 


'.020 s 


249 


2 


49 






LCA 


BER1 


250 


2 


50 






LCA 


RDREC 


251 


2 


51 






LCA 


•♦» 


252 


2 


52 






LCA 


8SPTU1 


253 


2 


53 






B 


WRITE1 


254 


2 


54 






CS 


PUNCH+75 


255 


2 


55 






LCA 


• SPUNCH + 35 


256 


2 


56 






LCA 


•B007 1 


257 


2 


57 






LCA 


•N000» 


258 


2 


58 






LCA 


«L » 


259 


2 


59 






LCA 


BER1 


260 


2 


60 






LCA 


RDREC 


261 


2 


61 






LCA 


*.* 


262 


2 


62 






LCA 


BSPTU1 


263 


2 


63 


* 








264 


2 


64 


* 


TEST 


PROCESSOR CORE SIZE 


265 


2 


65 


• 








266 


2 


66 






C 


21, , 3» 


267 


2 


67 






BE 


START 


268 


2 


68 






8H 


START 


269 


2 


69 






C 


21, •6» 


270 


2 


70 






BL 


START 


271 


2 


71 






MN 


21,SAV£ZN=1 


272 


2 


72 






A 


+3fSAVEZN 


273 


2 


73 






MN 


SAVEZN,**4 


274 


2 


74 






MZ 


Z0NE,*+7 


275 


2 


75 






LCA 


GRPMRK,GRPMRK 


276 


2 


76 






CW 


GRPMRK 


277 


2 


77 






MCW 


•400SKBLKNG 


278 


2 


78 






BCE 


START, 21,4 


279 


2 








A. 




280 


2 


80 


* 








281 


2 


81 


* 


SET , 


PARAMETERS 


282 


2 


82 


* 








283 


2 


83 


START 


BCE 


PNW40P,23,4 


284 


2 


84 






8CE 


PNH40P,23,5 


285 


2 


85 






BCE 


PNH40P,23,6 


286 


2 


86 






BCE 


PNH40P,23,7 


287 


2 


87 


TSTLSW 


By 


E0J08,LTAPSW 


288 


2 


88 






MCW 


KBLKNG,BLKCT 


289 


2 


89 






CS 


80 


290 


2 


90 






BW 


SETINP, J06SW 


291 


2 


91 






RT 


INTAPE, INPUT 


292 


2 


92 


SETINP 


SW 


IMAGE+23, IMAGE+57 


293 


2 


93 






SW 


IMAGE*62,IMAGE+67 


294 


2 


94 






SW 


IMAGE*68,IMAGE+71 


295 


2 


95 






SW 


IMAGE+74, IMAGE+6 


296 


2 


96 






SW 


IMAGE+1 


297 


2 


97 






B 


GET 



SFX CT LOCN INSTRUCTION TYpE CARD 



4 
4 
4 
4 
4 
4 
4 
7 
4 
4 
4 
4 
4 
4 
4 



0864 
0868 
0872 
0876 
0880 
0884 
0888 
0892 
0899 
0903 
0907 
0911 
0915 
0919 
0923 



047 

080 

088 

P53 

093 
B -30 
/ 175 

Q43 135 

P35 

Q51 

Q58 

080 

088 

P53 

093 



19 
19 
19 
20 
20 
20 
20 
20 
20 
20 
21 
21 
21 
21 
21 



7 


0927 


C 


021 


P54 




21 


5 


0934 


B 


+ 17 


S 




21 


5 


0939 


B 


*17 


U 




22 


7 


0944 


C 


021 


P55 




22 


5 


0951 


B 


♦ 17 


T 




22 


7 


0956 


D 


021 


£59 




22 


7 


0963 


A 


Q60 


Q59 




22 


7 


0970 


D 


Q59 


980 




22 


7 


0977 


Y 


339 


990 




23 


7 


0984 


L 


P06 


P06 




23 


4 


0991 


) 


P06 






23 


7 


0995 


M 


Q63 


P01 




23 


8 


1002 


B 


♦ 17 


021 


4 


23 




i/iin 


* 


Q63 


Bftl 

r \j s. 






8 


1017 


8 


520 


023 


4 


24 


8 


1025 


B 


520 


023 


5 


24 


8 


1033 


B 


520 


023 


6 


24 


8 


1041 


B 


520 


023 


7 


24 


8 


1049 


V 


X81 


P25 


1 


25 


7 


1057 


M 


POl 


P04 




25 


4 


1064 


/ 


080 






25 


8 


1068 


V 


+84 


P19 


1 


25 


8 


1076 


M 


<U5 


+28 


R 


25 


7 


1084 


, 


023 


057 




26 


7 


1091 


, 


062 


067 




26 


7 


1098 


, 


068 


071 




26 


7 


1105 


, 


074 


006 




26 


4 


1112 


, 


001 






26 


4 


1116 


B 


-76 






26 
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3782L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


298 


2 


98 


« 








299 


2 


99 


• 


ANALYZE RECORD TYPE 


300 


3 


00 


• 








301 


3 


01 


ANALYZ 


BCE 


BYPASS, TYPE,* 


302 


3 


02 






BM 


BYPASS, IMAGE+5 


303 


3 


03 






BCE 


INSTR, TYPE, 


304 


3 


04 






BCE 


DOJGB,TYPE,I 


305 


3 


05 






MN 


TYPE,XR2 


306 


3 


06 






A 


XR2 


307 


3 


07 






A 


XR2 


308 


3 


08 






B 


*+l+X2 


309 


3 


09 






B 


DA 


310 


3 


10 






B 


CONST 


311 


3 


11 






B 


DSA 


312 


3 


12 






B 


EXEND 


313 


3 


13 






B 


BYPASS 


3X4 


3 


14 






B 


BYPASS 


315 


3 


15 






B 


BYPASS 


316 


3 


16 






B 


BYPASS 


317 


3 


17 






B 


XTRA 


318 


3 


18 






B 


BYPASS 


319 


3 


19 


D0JC8 


MCW 


IMAGE+20,PUNCH*-79 


320 


3 


20 






B 


BYPASS 


321 


3 


21 


• 








322 


3 


22 


* 


PROCESS INSTRUCTION 


323 


3 


23 


* 








324 


3 


24 


INSTR 


MCW 


DMGD,PUNCH+42 


325 


3 


25 






MCW 




326 


3 


26 






MCW 




327 


3 


27 






MCW 




328 


3 


28 






MCW 


LABADCCNVADD 


329 


3 


29 








uuuim i , CimvAuu 


330 


3 


30 






S 


HSCNVADC 


331 


3 


31 


INSTXT 


B 


SETLOC 


332 


3 


32 






B 


WRITE2 


333 


3 


33 






B 


BYPASS 


334 


3 


34 


* 








335 


3 


35 


• 


PROCESS CONSTANTS 


336 


3 


36 


* 








337 


3 


37 


CONST 


A 


«00», COUNT 


338 


3 


38 






C 


COUNT, »00» 


339 


3 


39 






BL 


* + 5 


340 


3 


40 






B 


BYPASS 


341 


3 


41 






BCE 


PCHCON, IMJGE + 23,= 


342 


3 


42 






BWZ 


PCHC0N,IMAGE+4,B 


343 


3 


43 






MCW 


IMAGE+53,H0LDDT-22 


344 


3 


44 






BCE 


ALPHA, IMAGE+23,* 


345 


3 


45 






B 


PCHCON 


346 


3 


46 


ALPHA 


MCW 


+H0LDDT-51,XR1 


347 


3 


47 






A 


COUNT, XR1 



SFX CT LOCN INSTRUCTION TYPE CARD 



8 


1120 


B 


J59 


075 ( 


27 


8 


1128 


V 


J 59 


005 K 


27 


8 


1136 


B 


S22 


075 


27 


8 


1144 


8 


Sll 


075 I 


27 


7 


1152 


D 


075 


094 


27 


4 


1159 


A 


094 




28 


4 


1163 


A 


094 




28 


4 


1167 


B 


/PI 




28 


4 


1171 


B 


V85 




28 


4 


1175 


8 


S65 




28 


4 


1179 


B 


V59 




28 


4 


1183 


B 


W82 




28 


4 


1187 


B 


J59 




29 


4 


1191 


B 


J59 




29 


4 


1195 


8 


J59 




29 


4 


1199 


8 


J59 




29 


4 


1203 


B 


V34 




29 


4 


1207 


8 


J59 




29 


7 


1211 


M 


020 


179 


29 


4 


1218 


B 


J59 




30 



7 


1222 


M 


074 


142 


1 


1229 


M 






1 


1230 


M 






1 


1231 


M 






7 


1232 


M 


061 


+01 


i 


1239 


A 


nni 
w # 




1 


1246 


s 


P28 


+01 


4 


1253 


B 


J67 




4 


1257 


B 


K64 




4 


1261 


B 


J59 





30 

30 

30 

30 

30 
■an 

31 
31 
31 
31 



7 


1265 


A 


Q65 


007 


31 


7 


1272 


C 


007 


Q65 


31 


5 


1279 


B 


S88 


T 


31 


4 


1284 


B 


J59 




32 


8 


1288 


B 


T44 


023 = 


32 


8 


1296 


V 


T44 


004 B 


32 


7 


1304 


M 


053 


R26 


32 


8 


1311 


B 


T23 


023 « 


32 


4 


1319 


B 


T44 




32 


7 


1323 


M 


Q68 


089 


33 


7 


1330 


A 


007 


089 


33 
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37821- 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


348 


3 


48 






MCW 


8LANK1=1»XXXX+X1 


349 


3 


49 


PCHCON 


MCW 


H0LDDT~20,PUNCH+66 


350 


3 


50 






MCW 


LABADD,CNVACD 


351 


3 


51 






C 


COUNT, «32« 


352 


3 


52 






BL 


LARGE 


353 


3 


53 






BCE 


PRODC, TYPE»A 


354 


3 


54 






B 


INSTXT 


355 


3 


55 


# 








356 


3 


56 


* 


CONSTANT GREATER THAN 32 CHARACTERS 


357 


3 


57 


• 








358 


3 


58 


LARGE 


S 


• 32 », COUNT 


359 


3 


59 






S 


COUNT, CNVADC 


360 


3 


60 






MCW 


COUNT, H0LDCT=2 


361 


3 


61 






MCW 


•32», COUNT 


362 


3 


62 






B 


SETLOC 


363 


3 


63 






BCE 


LRGDC, TYPE, A 


364 


3 


64 


LRGXT 


MCW 


HOLDCT, COUNT 


365 


3 


65 






MCW 


H0LDDT,TEMP=20 


366 


3 


66 






B 


WRITE2 


367 


3 


67 






MCW 


TEMP,PUNCh+54 


368 


3 


68 


♦ 








369 


3 


69 


• 


PROCESS DC 




370 


3 


70 


• 








371 


3 


71 


PRODC 


MCW 


LABADD,CNVACD 


372 


3 


72 






S 


COUNT, CNVADC 


373 


3 


73 






A 


•1SCNVADD 


374 


3 


74 






B 


CNVRT 


375 


3 


75 






MCW 


CNVWK,PUNCH+30 


376 


3 


76 






MCW 


»)• 


377 


3 


77 






MCW 


LABADD,CNVADD 


378 


3 


78 






B 


INSTXT 


«■»•»*» 
jf^ 


3 




5 








380 


3 


80 


• 


OC GREATER 


THAN 32 CHARACTERS 


381 


3 


81 


* 








382 


3 


82 


LRGDC 


MCW 


LABADD,CNVACD 


383 


3 


83 






S 


HOLDCT, CNV ADD 


384 


3 


84 






s 


'31*,CNVACD 


385 


3 


85 






B 


CNVRT 


386 


3 


86 






MCW 


CNVWK,PUNCH+30 


387 


3 


87 






MCW 


•)• 


388 


3 


88 






B 


LRGXT 


389 


3 


89 


* 








390 


3 


90 


• 


EXTRA CARD 


FOR CONSTANT OVER 32 CHARACTERS 


391 


3 


91 


• 








392 


3 


92 


XTRA 


BCE 


BYPASS, IMAGE+21, 


393 


3 


93 






MCW 


IMAGE+73»H0LDDT=52 


394 


3 


94 






CHAIN 


6 


395 










MCW 




396 










MCW 




397 










MCW 





SFX CT LOCN INSTRUCTION TYPE CARD 



7 


1337 


M Q69 0*0 


33 


7 


1344 


M R28 166 


33 


7 


1351 


M 061 +01 


33 


7 


1358 


C 007 071 


34 


5 


1365 


B T82 T 


34 


8 


1370 


B U47 075 A 


34 


4 


1378 


B S53 


34 



7 


1382 


S 071 007 


34 


7 


1389 


S 007 +01 


34 


7 


1396 


M 007 Q73 


35 


7 


1403 


M Q71 007 


35 


4 


1410 


B J67 


35 


8 


1414 


B U94 075 A 


35 


7 


1422 


M Q73 007 


35 


7 


1429 


M R48 Q93 


36 


4 


1436 


B K64 


36 


7 


1440 


M Q93 154 


36 



7 


1447 


M 061 +01 


36 


7 


1454 


S 007 +01 


36 


7 


1461 


A P28 +01 


36 


4 


1468 


B Kll 


37 


7 


1472 


M +04 130 


37 


4 


1479 


M Q94 


37 


7 


1483 


M 061 +01 


37 


4 


1490 


B S53 


37 



7 


1494 


M 


061 


+01 


7 


1501 


S 


Q73 


+01 


7 


1508 


S 


096 


+01 


4 


1515 


B 


Kll 




7 


1519 


M 


+04 


130 


4 


1526 


M 


Q94 




4 


1530 


B 


U22 





37 
38 
38 
38 
38 
38 
38 



8 


1534 


B J59 021 




39 


7 


1542 


M 073 R48 


MACRO 


39 


1 


1549 


M 


GEN 


39 


1 


1550 


M 


GEN 


39 


1 


1551 


M 


GEN 


39 
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3782L 



PAGE 



SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


398 






MCW 




399 






MCW 




400 






MCW 




401 


3 95 




8 


BYPASS 


402 


3 96 


« 






403 


3 97 


* PROCESS DSA 


404 


3 98 


* 






405 


3 99 


DSA 


MCW 


B0P,PUNCH+37 








8CE 


PR0DC»TYpE*8 


407 


4 01 




MCW 


LABAODfCNVACD 


408 


4 02 




8 


INSTXT 


409 


4 03 


# 






410 


4 04 


* PROCESS DEFINE AREA 


411 


4 05 


* 






412 


4 06 


DA 


BCE 


BYPASS, TYPE, - 


413 


4 07 




BCE 


HEADER, TYPE, 


414 


4 08 


* 






415 


4 09 


» FIELD, FIELD REPEAT 


416 


4 10 


* 






417 


4 11 


FIELD 


MCW 


SUPADD,CNVACD 


418 


4 12 




B 


DARTN 


419 


4 13 




BCE 


FIELD, TYPE,* 


420 


4 14 




B 


ANALYZ 


421 


4 15 


* 






422 


4 16 


* HEADER, HEADER REPEAT 


423 


4 17 


« 






424 


4 18 


HEADER 


MCW 


LABADD,CNVACO 


425 


4 19 




B 


DARTN 


426 


4 20 




BCE 


HEADER, TYPE,* 


427 


4 21 




B 


ANALYZ 


428 


4 22 


* 






429 


4 23 


* DA SUBROUTINE 


430 


4 24 


* 






431 


4 25 


DARTN 


SBR 


DAXT+3 


432 


4 26 




B 


CNVRT 


433 


4 27 




MCW 


CNVWK,PUNCH+26 


434 


4 28 




MCW~ 


CNVWK 


435 


4 29 




MCW 


*,• 


436 


4 30 




B 


WRITE2 


437 


4 31 




8 


GET 


438 


4 32 


DAXT 


8 


XXXX 


439 


4 33 


» 






440 


4 34 


« PROCESS EX 


, END 


441 


4 35 


* 






442 


4 36 


EXEND 


BCE 


END, TYPE, 3 


443 


4 37 




MCW 


AOP,PUNCH+30 


444 


4 38 




MCW 


•B« 


445 


4 39 




MCW 


•NOOOOOO 1 


446 


4 40 




B 


WRITE2 


447 


4 41 




LCA 


• SPUNCH+24 



SFX CT LOCN INSTRUCTION TYPE CARD 



1 


1552 


M 


GEN 


39 


1 


1553 


M 


GEN 


39 


1 


1554 


M 


GEN 


40 


4 


1555 


8 J59 




40 



7 


1559 


M 073 137 


40 


8 


1566 


B U47 075 B 


40 


7 


1574 


M 061 +01 


40 


4 


1581 


B S53 


40 


8 


1585 


8 J59 075 - 


40 


8 


1593 


8 W24 075 


41 



7 


1601 


M 066 +01 


41 


4 


1608 


8 W47 


41 


8 


1612 


B W01 075 * 


41 


4 


1620 


8 /20 


41 



7 


1624 


M 061 +01 


41 


4 


1631 


8 W47 


42 


8 


1635 


B W24 075 * 


42 


4 


1643 


8 /20 


42 



4 


1647 


H W81 


42 


4 


1651 


B Kll 


42 


7 


1655 


M +04 126 


42 


4 


1662 


M +04 


42 


4 


1666 


M R49 


43 


4 


1670 


8 K64 


43 


4 


1674 


B -76 


43 


4 


1678 


B 000 


43 



8 


1682 


B X58 075 3 


43 


7 


1690 


M 070 130 


43 


4 


1697 


M R50 


43 


4 


1701 


M R57 


44 


4 


1705 


B K64 


44 


7 


1709 


L Q43 124 


44 
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3782L 



PAGE 



SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


448 


4 


42 




LCA 


•B007* 


449 


4 


43 




B 


GET 


450 


4 


44 




BCE 


ISJOB,TYPE»I 


451 


4 


45 


CQMPAT 


B 


WRITE1 


452 


4 


46 




LCA 


•L «,PUNCH+26 


453 


4 


47 




B 


ANALY2 


454 


4 


48 


ISJ08 


MCW 


IMAGE+20»PUNCH+79 


455 


4 


49 




8 


COMPAT 


456 


4 


50 


* 






457 


4 


51 


* END 






458 


4 


52 


* 






459 


4 


53 


END 


MCW 


•/ 080SPUNCH+26 


460 


4 


54 




MCW 


A0P,PUNCH+23 


461 


4 


55 




B 


WRITE2 


462 


4 


56 




WTM 


OUTAPE 


463 


4 


57 


EOJOB 


BW 


PUNCH4,PNH4SW 


464 


4 


58 




B 


ENDJOB 


465 


4 


59 


* 






466 


4 


60 


» PUNCH NEW 


SOURCE DECK 


467 


4 


61 


* 






468 


4 


62 


PUNCH4 


cs 


PUNCH+80 


469 


4 


63 




MCW 


•113» ,LGTCK+6 


470 


4 


64 




RT 


4.PUNCH+1 


471 


4 


65 




B 


CHKLGT 


472 


4 


66 




BER 


TPERR 


473 


4 


67 




BCE 


D0LT0,PUNCH+75,L 


474 


4 


68 




BCE 


PUNCH4,PUNOi+75»S 


475 


4 


69 




BCE 


PUNCH4,PUNCH+75,C 


476 


4 


70 




BCE 


PUNCH4,PUNCH+75»Z 


477 


4 


71 




BCE 


PUNCH4 f PUNCH+75,Y 


478 


4 


72 


BUMP 


A 


+1,SEQCT-1 


479 


4 


73 




MCW 


SEQCTtPUNCH+5 


480 


4 


74 




BCE 


DOPCH, PUNCH+6,* 


481 


4 


75 




MCW 


BLANK4=4,PUNCH+15 


482 


4 


76 




C 


PUNCH+18,' JCB« 


483 


4 


77 




BU 


DOPCH 


484 


4 


78 




MCW 


BLANK4,PUNCh+ll 


485 


4 


79 




MCW 


BLANK4-2 


486 


4 


80 


DOPCH 


MCW 


BLANK4-l,PUNCH+75 


487 


4 


81 




P 




488 


4 


82 




ss 


4 


489 


4 


83 




c 


PUNCH+lSi'ENO 1 


490 


4 


84 




BU 


PUNCH4 


491 


4 


85 




BCE 


PUNCH4,PUNCH+6,» 


492 


4 


86 




CS 


PUNCH+80 


493 


4 


87 




P 




494 


4 


88 




SS 


8 


495 


4 


89 




B 


ENDJOB 


496 


4 


90 


DGLTO 


MCW 


•LTORGSPUNCH+20 


497 


4 


91 




B 


BUMP 



SFX CT LOCN INSTRUCTION TYPE CARD 



4 


1716 


L 


P35 




44 


4 


1720 


B 


-76 




44 


8 


---j-724 


8 


^j 


075 I 


44 


4 


1732 


8 


-30 




44 


7 


1736 


L 


R64 


126 


45 


4 


1743 


B 


/20 




45 


7 


1747 


M 


020 


179 


45 


4 


1754 


B 


X32 




45 


7 


1758 


M 


R71 


126 


45 


7 


1765 


M 


070 


123 


45 


4 


1772 


B 


K64 




46 


5 


1776 


U 


(U6 


M 


46 


8 


1781 


V 


X93 


P26 1 


46 


4 


1789 


B 


-55 




46 



4 


1793 


/ 


180 






46 


7 


1797 


M 


R74 


058 




46 


8 


1804 


M 


CU4 


101 


R 


47 


4 


1812 


B 


037 






47 


5 


1816 


B 


M33 


L 




47 


8 


1821 


B 


Z54 


175 


L 


47 


8 


1829 


B 


X93 


175 


S 


47 


8 


1837 


B 


X93 


175 


C 


48 


8 


1845 


B 


X93 


175 


z 


48 


8 


1853 


B 


X93 


175 


Y 


48 


7 


1861 


A 


R75 


097 




48 


-» 
t 


J.OOO 


n 


UTTO 


•» AC 
ISJZf 




to 


8 


1875 


B 


213 


106 


* ■ 


49 


7 


1883 


M 


R79 


115 




49 


7 


1890 


C 


118 


P14 




49 


5 


1897 


B 


Z13 


/ 




49 


7 


1902 


M 


R79 


111 




49 


4 


1909 


M 


R77 






49 


7 


1913 


M 


R78 


175 




50 


1 


1920 


4 








50 


2 


1921 


K 


4 






50 


7 


1923 


C 


118 


R82 




50 


5 


1930 


8 


X93 


/ 




50 


8 


1935 


B 


X93 


106 


» 


50 


4 


1943 


/ 


180 






50 


1 


1947 


4 








51 


2 


1948 


K 


8 






51 


4 


1950 


8 


-55 






51 


7 


1954 


M 


R87 


120 




51 


4 


1961 


B 


Y61 






51 
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SEQ 


PG LIN 


LABEL 


OP 


OPERANDS 


498 


4 92 




DCW 


t t 


499 


4 93 


ENDF1 


DCW 


t • 


500 


4 94 




XFR 


LIBRN 



SFX CT LQCN INSTRUCTION TYPE CARD 



1965 
1966 



B 000 



51 
51 
52 
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SEQ 


PG 


LIN 


LA8EL 


OP 


OPERANDS 


501 


4 


95 






JOB 


1401 AUTOCODER-PASS 


502 


4 


96 






ORG 


2000 


503 


4 


97 


QUTCPN 


DCW 


« i 


504 


4 


98 


SSOP 


DCW 


«B« 


505 


4 


99 






RTW 


1,1 


506 


5 


00 






NOP 


xxxx 


507 


5 


01 






BER 


TPERR 


508 


5 


02 






CW 


ENDF1,ENDF2 


509 


5 


03 






8 


INITLZ 


510 


5 


04 


* 








511 


5 


05 


* 


WRITE CLEAR STORAGE AND BOOTST 


512 


5 


06 


* 








513 


5 


07 


WRITE1 


SBR 


WT1XT+3 


514 


5 


08 






WTW 


OUTAPE, OUTPUT 


515 


5 


09 






NOP 


XXXX 


516 


5 


10 






BER 


TPERR 


517 


5 


11 


WT1XT 


B 


XXXX 


518 


5 


12 


• 








519 


5 


13 


# 


GO BACK TO 


PASS E FOR EXTRA CU 


520 


5 


14 


» 








521 


5 


15 


ENOJOB 


RTW 


1,333 


522 


5 


16 






NOP 


XXXX 


523 


5 


17 






BER 


TPERR 


524 


5 


18 






8 


MESS AG 


525 


5 


19 


• 








526 


5 


20 


* 


RETRIEVE INPUT RECORD 


527 


5 


21 


« 








528 


5 


22 


GET 


SBR 


GETXT+3 


529 


5 


23 






C 


BLKCT,KBLKNG 


530 


5 


24 






BU 


NXTREC 


531 


5 


25 






S 


HOLDA 


532 


5 


26 






MCW 




533 


5 


27 






RT 


INTAPE, INPUT 


534 


5 


28 






B 


CHKLGT 


535 


5 


29 






BER 


TPERR 


536 


5 


30 


NXTREC 


A 


+8Q.8LKCT 


537 


5 


31 






MCW 


8LKCT,XR3 


538 


5 


32 






MCW 


INPUT-l+X3*IMAGE+80 


539 


5 


33 






CHAIN 


8 


540 










MCW 




541 










MCW 




542 










MCW 




543 










MCW 




544 










MCW 




545 










MCW 




546 










MCW 




547 










MCW 




548 


5 


34 






s 


XR3+1 


549 


5 


35 






s 




550 


5 


36 






s 





SFX CT LOCN INSTRUCTION TYPE CARD 



-VERSION 3 



1 2000 

1 2001 

8 2002 

4 2010 

5 2014 
7 2019 
4 2026 



2000 



L {Ul 001 
N 000 
B M33 L 
) 266 198 
B 340 



55 
55 
55 
55 
55 
55 
55 



4 


2030 


H -54 


56 


8 


2034 


L (U6 101 W 


56 


4 


2042 


N 000 


56 


5 


2046 


B M33 L 


56 


4 


2051 


B 000 


56 



8 


2055 


L (Ul 333 R 


56 


4 


2063 


N 000 


56 


5 


2067 


B M33 L 


57 


4 


2072 


B 333 


57 



4 


2076 


H 


J58 






57 


7 


2080 


C 


P04 


P01 




57 


5 


2087 


B 


J20 


/ 




57 


4 


2092 


s 


P05 






57 




£V70 


u 

n 


ortn 


058 






8 


2103 


M 


(U5 


+28 


R 


58 


4 


2111 


8 


037 






58 


5 


2115 


B 


M33 


L 




58 


7 


2120 


A 


R92 


P04 




58 


7 


2127 


M 


P04 


099 




58 


7 


2134 


M 


+87 


080 


MACRO 


58 


1 


2141 


M 






GEN 


58 


1 


2142 


M 






GEN 


59 


1 


2143 


M 






GEN 


59 


1 


2144 


M 






GEN 


59 


1 


2145 


M 






GEN 


59 


1 


2146 


M 






GEN 


59 


1 


2147 


M 






GEN 


59 


1 


2148 


M 






GEN 


59 


4 


2149 


S 


100 






60 


1 


2153 


s 








60 


1 


2154 


S 








60 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


551 


5 


37 


GETXT 


B 


XXXX 


552 


5 


38 


• 






553 


5 


39 


* DC NEXT RECORD 


554 


5 


40 


* 






555 


5 


41 


BYPASS 


B 


GET 


556 


5 


42 




B 


ANALYZ 


557 


5 


43 


* 






558 


5 


44 


* SET 


ADDRESSES IN OUTPUT 


559 


5 


45 


* 






560 


5 


46 


SETLOC 


SBR 


LOCXT+3 


561 


5 


47 




B 


CNVRT 


562 


5 


48 




MCW 


CNVWK*PUNCH+26 


563 


5 


49 




ZA 


+34»CNVA0D 


564 


5 


50 




A 


COUNT, CNVADC 


565 


5 


51 




B 


CNVRT 


566 


5 


52 




MCW 


CNVWK,PUNCH+23 


567 


5 


53 


LOCXT 


B 


XXXX 


568 


5 


54 


* 






569 


5 


55 


* CONVERT 5 


TO 3 DIGIT ACDRESS 


570 


5 


56 


• 






571 


5 


57 


CNVRT 


SBR 


CNVXT+3 


572 


5 


58 




BAV 


*+l 


573 


5 


59 


ADDAGN 


A 


+96 f CNVADC-3 


574 


5 


60 




BAV 


ADDAGN 


575 


5 


61 




MZ 


CNVAD0-4,CNVADD=5 


576 


5 


62 




m 


CNVADD-3i*+4 


577 


5 


63 




MZ 


ZONE.CNVACD-2 


578 


5 


64 




MCW 


CNVADD,CNVWK=3 


579 


5 


65 


CNVXT 


B 


XXXX 


580 


5 


66 


* 






581 


5 


67 


» WRITE OUTPUT RECORDS 


582 


5 


66 


* 






583 


5 


69 


WRITE2 


SBR 


WT2XT+3 


584 


5 


70 




BCE 


D0GM,PUNCH+35» 


585 


5 


71 




WTW 


0UTAPE,0UTPUT+19 


586 


5 


72 




NOP 


XXXX 


587 


5 


73 




BER 


TPERR 


588 


5 


74 




NOP 




589 


5 


75 


CLEAR 


MCW 


BLANKl,PUNCH+75 


590 


5 


76 




MCW 


PUNCH+75 


591 


5 


77 




MCW 


BLANK1,H0LDCT 


592 


5 


78 




MCW 


HOLDDT 


593 


5 


79 




MCW 


•NOOOSPUNCh + 30 


594 


5 


80 




MCW 


•L • 


595 


5 


81 


WT2XT 


B 


XXXX 


596 


5 


82 


DGGM 


CS 


299 


597 


5 


83 




LCA 


PUNCH+80,28C 


598 


5 


84 




LCA 




599 


5 


85 




MCW 


PUNCH+66,274 


600 


5 


86 




LCA 


• t 



SFX CT LOCN 
4 2155 



4 2159 
4 2163 



INSTRUCTION TYPE CARD 
B 000 60 



B -76 
8 /20 



60 
60 



4 


2167 


H K10 


60 


4 


2171 


B Kll 


61 


7 


2175 


M +04 126 


61 


7 


2182 


+ R94 +01 


61 


7 


2189 


A 007 +01 


61 


4 


2196 


B Kll 


61 


7 


2200 


M +04 123 


61 


4 


2207 


8 000 


62 



4 


2211 


H 


K63 




62 


5 


2215 


B 


K20 


Z 


62 


7 


2220 


A 


R96 


R98 


62 


5 


2227 


B 


K20 


Z 


62 


7 


2232 


Y 


R97 


+ 01 


62 


7 


2239 


D 


R98 


K49 


62 


7 


2246 


Y 


339 


R99 


63 


7 


2253 


M 


+01 


+04 


63 


4 


2260 


B 


000 




63 


4 


2264 


H 


L30 




63 


8 


2268 


B 


L31 


135 


63 


8 


2276 


L 


(U6 


120 W 


63 


4 


2284 


N 


000 




64 


5 


2288 


B 


M33 


L 


64 


1 


2293 


N 






64 


7 


2294 


M 


Q69 


175 


64 


4 


2301 


M 


175 




64 


7 


2305 


M 


Q69 


R48 


64 


4 


2312 


M 


R48 




64 


7 


2316 


M 


Q51 


130 


65 


4 


2323 


M 


+ 11 




65 


4 


2327 


8 


000 




65 


4 


2331 


/ 


299 




65 


7 


2335 


L 


180 


280 


65 


1 


2342 


L 






65 


7 


2343 


M 


166 


274 


65 


4 


2350 


L 


Q43 




66 
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SEQ 


PG 


LIN 


LABEL 


QP 


OPERANDS 


601 


5 


87 




LCA 


■B0G7* 


602 


5 


88 




LCA 


»)043043* 


603 


5 


89 




LCA 


PUNCH+26 


604 


5 


90 




LCA 


»,043« 


605 


5 


91 




SW 


225,235 


606 


5 


92 




A 


+8,227 


607 


5 


93 




CW 


225 


608 


5 


94 




8CE 


WTGM,PUNCH+27,N 


609 


5 


95 




MCW 


PUNCH+30,237 


610 


5 


96 


WTGM 


CW 


235 


611 


5 


97 




WTW 


0UTAPE,220 


612 


5 


98 




NOP 


XXXX 


613 


5 


99 




BER 


TPERR 


614 


6 


00 




NOP 




615 


6 


01 




CW 


280 


616 


6 


02 




B 


CLEAR 


617 


6 


03 


# 






618 


6 


04 


* TAPE 


REDUNDANCY ROUTINE 


619 


6 


05 


• 






620 


6 


06 


TPERR 


SBR 


XR2 


621 


6 


07 




SBR 


REDXT+3 


622 


6 


08 




MZ 


+9,XR2 


623 


6 


09 




MCW 


4000-10+X2, TPINST+7 


624 


6 


10 




MN 


TPINST+3,BSPl+3 


625 


6 


11 




MCW 


TPINST+7, INST2+7 


626 


6 


12 


BSP1 


BSP 


INITAP 


627 


6 


13 




BCE 


WRTRED, TPINST+7, M 


628 


6 


14 




MCW 


+9,READCT=1 


629 


6 


15 


TPINST 


RT 


INITAP, XXXX 


630 


6 


16 




BER 


RDRERR 


631 


6 


17 


REDXT 


B 


XXXX 


632 


6 


18 


ROREkk 


MN 


TPINST+3,8SP2+3 


633 


6 


19 


BSP2 


BSP 


INITAP 


634 


6 


20 




S 


+1,R£ADCT 


635 


6 


21 




BViZ 


TPINST, READCT,B 


636 


6 


22 




MN 


TPIN5T+3,TPBALT+6 


637 


6 


23 


TPHALT 


H 


XXXX, 890 


638 


6 


24 




MCW 


TPINST+7, *+8 


639 


6 


25 




RT 


INITAP, XXXX 


640 


6 


26 




BSS 


8SP1,E 


641 


6 


27 




H 


XXXX, 811 


642 


6 


28 




B 


REDXT 


643 


6 


29 


WRTRED 


SKP 


1 


644 


6 


30 




BCE 


SUBCTR, WRTCTR-1, 5 


645 


6 


31 




A 


+1,WRTCTR=2 


646 


6 


32 


INST2 


WT 


INITAP, XXXX 


647 


6 


33 




BER 


BSP1 


648 


6 


34 




B 


REDXT 


649 


6 


35 


SUBCTR 


S 


WRTCTR 


650 


6 


36 




MN ■ 


TPINST+3,*+7 



SFX CT LOCN INSTRUCTION TYPE CARD 



2354 
2358 
2362 
2366 
2370 
2377 
2384 
2388 
2396 
4 2403 
8 2407 
2415 
2419 
2424 
2425 
2429 



L P35 

L +18 

L 126 

L +22 

, 225 235 

A +23 227 

) 225 

B M03 127 N 

M 130 237 

) 235 

L (U6 220 W 

N 000 

B M33 L 

N 

) 280 

B K94 



66 
66 
66 
66 
66 
66 
67 
67 
67 
67 
67 
67 
68 
68 
68 
68 



4 


2433 


H 


094 




68 


4 


2437 


H 


N05 




68 


7 


2441 


Y 


+24 


094 


68 


7 


2448 


M 


IRO 


M96 


69 


7 


2455 





M92 


M72 


69 


7 


2462 


M 


M96 


005 


69 


5 


2469 


U 


(UO 


B 


69 


8 


2474 


B 


N78 


M96 W 


69 


7 


2482 


M 


+24 


+ 25 


70 


8 


2489 


M 


CUO 


000 R 


70 


5 


2497 


B 


N06 


L 


70 


4 


2502 


B 


000 




70 




COW 


U 




in / 

flio 




5 


2513 


U 


CUO 


B 


70 


7 


2518 


S 


R75 


+25 


71 


8 


2525 


V 


M89 


+25 B 


71 


7 


2533 


D 


M92 


N46 


71 


7 


2540 


• 


000 


890 


71 


7 


2547 


M 


M96 


N6l 


71 


8 


2554 


M 


(UO 


000 R 


72 


5 


2562 


8 


M69 


E 


72 


7 


2567 


• 


000 


8ll 


72 


4 


2574 


B 


N02 




72 


5 


2578 


U 


(Ul 


E 


72 


8 


2583 


8 


015 


+26 5 


72 


7 


2591 


A 


R75 


+ 27 


73 


8 


2598 


M 


(UO 


000 w 


73 


5 


2606 


B 


M69 


L 


73 


4 


2611 


B 


N02 




73 


4 


2615 


S 


+27 




73 


7 


2619 


D 


M92 


032 


73 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 


651 


6 


37 




H 


XXXX»860 


652 


6 


38 




B 


INST2 


653 


6 


39 


* 






654 


6 


40 


* CHECK FOR 


SHORT RECORD 


655 


6 


41 


* 






656 


6 


42 


CHKLGT 


SBR 


XR2 


657 


6 


43 




SBR 


LGTXT+3 


658 


6 


44 




MZ 


+9,XR2 


659 


6 


45 


LGTCK 


BCE 


4000-12+X2tXXXX, 


660 


6 


46 




CHAIN 


12 


661 








BCE 




662 








BCE 




663 








BCE 




664 








BCE 




665 








BCE 




666 








BCE 




667 








BCE 




668 








BCE 




669 








BCE 




670 








BCE 




671 








BCE 




672 








BCE 




673 


6 


47 


LGTXT 


B 


XXXX 


674 


6 


48 


BER1 


DCW 


•8001L* 


675 


6 


49 


RDREC 


DCW 


•L(U1020R« 


676 


6 


50 


BSPTU1 


DCW 


•U(U1B« 


677 


6 


51 


SEGCT 


DCW 


•0100 * 


678 


6 


52 


KBLKNG 


DCW 


080 


679 


6 


53 


HOLDA 


DCW 


+0000 


680 


6 


54 


BLKCT 


EQU 


HOLDA-1 


681 


6 


55 


GRPMRK 


DC 


• t 


one 


6 






l i emu 
DCW 


•2* 

i 7 « 

•013" 
•JOB 1 






152 


IDENT 




=04 






153 


JOBSW 




=01 

•CTL» 

«33» 






165 


LTAPSW 




=01 






170 


PNH4SW 




=01 
•0 1 
•l* 
•4« 
t < 

•B007 1 
•)021« 






197 






•B047L« 






198 






•HU1001R 1 



SFX CT LCCN INSTRUCTION TYPE CARD 



7 2626 
4 2633 



. 000 860 
B N98 



74 
74 



4 


2637 


H 


094 




74 


4 


2641 


H 


075 




74 


7 


2645 


Y 


+24 094 




74 


8 


2652 


B 


IQ8 000 


MACRO 


74 


1 


2660 


B 




GEN 


74 


1 


2661 


B 




GEN 


75 


1 


2662 


B 




GEN 


75 


1 


2663 


B 




GEN 


75 


1 


2664 


B 




GEN 


75 


1 


2665 


B 




GEN 


75 


1 


2666 


B 




GEN 


75 


1 


2667 


B 




GEN 


75 


1 


2668 


B 




GEN 


76 


1 


2669 


B 




GEN 


76 


1 


2670 


B 




GEN 


76 


1 


2671 


B 




GEN 


76 


4 


2672 


B 


000 




76 


5 


2680 








76 


8 


2688 








76 


5 


2693 








77 


5 


2698 








77 


3 


2701 








77 


4 


2705 
2704 








77 


1 


2706 








77 






1 T»**-» 

t(UJ 






1 


2707 






LIT 


77 


1 


2708 






LIT 


77 


3 


2711 






LIT 


77 


3 


2714 






LIT 


78 


4 


2718 






AREA 


78 


1 


2719 






AREA 


78 


3 


2722 






LIT 


78 


2 


2724 






LIT 


78 


1 


2725 






AREA 


78 


1 


2726 






AREA 


78 


1 


2727 






LIT 


79 


1 


2728 






LIT 


79 


1 


2729 






LIT 


79 


2 


2731 






LIT 


79 


4 


2735 






LIT 


79 


4 


2739 






LIT 


79 


5 


2744 






LIT 


79 


8 


2752 






LIT 


80 



1401 AUTGCOCER-PASS 8-LGAD TAPE-LEFT MAIN -VERSION 3 
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LIN 


LABEL OP 


OPERANDS 

*•» 

•3» 
'6« 
•I0+« 
•099* 

•B053' 


212 




•M074099' 
»)099» 


214 




•8001/* 


215 




•C004041* 


216 




* =044004' 

»/I9I» 

•I0« 


226 




•M080099' 
•B001» 


229 




•B0320020 1 
•)002« 


231 




•A075003 1 

S002* 

*/I99» 

*Z« 

«T« 

M« 
t • 

«.020« 
»N000» 


258 




•L • 


271 


SAVEZN 


=01 
+3 

•400' 
«00» 






TnULUU I -31 


348 


BLANK1 


=01 
•32« 


360 


HOLDCT 


=02 


365 


TEMP 


=20 
•31« 


393 


HGLCDT 


=52 
t • 

♦B 1 


445 




«N000000« 


452 




•L ■ 


459 




■/ 080' 
•113' 
+ 1 


481 


BLANIK4 


=04 
•END* 


496 




•LTORG* 


532 




+INPUT+13 



SfX CT LOCN INSTRUCTION TYPE CARD 



1 


2753 


1 


2754 


1 


2755 


3 


2758 


3 


2761 


4 


2765 


7 


2772 


4 


2776 


5 


2781 


7 


2788 


7 


2795 


4 


2799 


2 


2801 


7 


2808 


4 


2812 


8 


2820 


4 


2824 


7 


2831 


4 


2835 


4 


2839 


1 


2840 


1 


2841 


1 


2842 


I 


2843 


4 


2847 


4 


2851 


7 


2858 


1 


2859 


1 


2860 


3 


2863 


2 


2865 


-^ 

3 


£000 


I 


2869 


2 


2871 


2 


2873 


20 


2893 


1 


2894 


2 


2896 


52 


2948 


1 


2949 


1 


2950 


7 


2957 


7 


2964 


7 


2971 


3 


2974 


1 


2975 


4 


2979 


3 


2982 


5 


2987 


3 


2990 



w* t 



+41 



LIT 


80 


LIT 


80 


LIT 


130 


LIT 


80 


LIT 


80 


LIT 


80 


LIT 


81 


LIT 


81 


LIT 


81 


LIT 


81 


LIT 


81 


LIT 


81 


LIT 


81 


LIT 


82 


LIT 


82 


LIT 


82 


LIT 


82 


LIT 


82 


LIT 


82 


LIT 


82 


LIT 


83 


LIT 


83 


LIT 


83 


LIT 


83 


LIT 


83 


LIT 


83 


LIT 


83 


AREA 


84 


LIT 


84 


LIT 


84 


LIT 


84 


ADCON 


84 


AREA 


84 


LIT 


84 


AREA 


85 


AREA 


85 


LIT 


85 


LIT 


85 


AREA 


87 


LIT 


87 


LIT 


87 


LIT 


87 


LIT 


87 


LIT 


88 


LIT 


88 


LIT 


88 


AREA 


88 


LIT 


88 


LIT 


88 


ADCON 


88 
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SEQ 


PG 


LIN 


LABEL 


OP 


OPERANDS 

+80 
+34 
+96 






575 


CNVAOO 




=05 






578 


CNVWK 




=03 






594 






»L • 






602 






•5043043* 
S043* 
+ 8 
+9 






628 


REAOCT 




=01 






645 


WRTCTR 




=02 


683 


6 


57 


* 






684 


6 


58 


* INPUT AREA 




685 


6 


59 


• 






686 


6 


60 


INPUT 


EQU 


*+l 


687 


6 


61 


ENDF2 


EQU 


3998 


688 


6 


62 


3998 


DCW 


i t 


689 


6 


63 




XFR 


LI8RN 



SFX CT LCCN INSTRUCTION TYPE CARD 



2 


2992 


2 


2994 


2 


2996 


5 


3001 


3 


3004 


7 


3011 


7 


3018 


4 


3022 


1 


3023 


1 


3024 


1 


3025 


2 


3027 



3028 

3998 

1 3998 



LIT 


89 


LIT 


89 


LIT 


89 


AREA 


89 


AREA 


89 


LIT 


89 


LIT 


89 


LIT 


90 


LIT 


90 


LIT 


90 


AREA 


90 


AREA 


90 



B 000 



91 
92 
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SEQ PG LIN LABEL OP 



690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 



64 
65 
66 
67 
68 
69 
70 



JOB 

ORG 



OPERANDS 

1401 AUTOCOCER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 
333 



SFX CT LOCN INSTRUCTION TYPE CARD 



6 71 
6 72 



73 

74 
75 
76 
77 



6 78 
6 79 
6 80 
6 81 



82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 



* PRINT END OF JOB MESSAGES 



MESSAG CC 
CS 
CS 

MCW 

W 

CC 

MCW 

MCW 

W 

CC 

CS 

MCW 

w 

MCW 

w 

MCW 

W 

MCW 

W 

MCW 

W 

CC 

CS 

MCW 

W 

CC 

MCW 

W 

CC 

cw 

H 

8SS 
CS 
MCW 

w 

CC 

MCW 

w 

RWD 

RWD 

RWD 

RWD 

BW 

CS 

MCW 



1 
332 

•END OF ASSEMBLY', PRINT+15 



•IF EXTRA OUTPUT CESIREDt SET SENSE* ,PRINT+34 
'SWITCH F ON, AND«,PRINT+51 



PRINT+71 

•B ON FOR CCNDENSED CARDS' .PRINT+24 

•C ON FOR LCADABLE TAPE 6', PRINT+24 

•D ON FOR LISTING TAPE 3',PRINT+24 

•E ON TO SUPPRESS LISTING" , PRINT+24 

•G ON FOR NEW SOURCE DECK' »PRINT+24 



PRINT+24 

•AND PRESS START' *PRINT+15 



K 



IF NO EXTRA OUTPUT DESIRED* PRESS START* $PRINT+; 



GRPMRK 

XXXX,880 

GOTOE»F 

PRINT+39 

•END OF JCBSPRINT + 10 



•INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4»,PRINT+36 

1 

4 

5 

6 

FINALtLTAPSW 

236 

•LOADABLE TAPE ON TAPE UNIT 6»,PRINT+28 



2 
4 
1 
7 
1 
2 
7 
7 
1 
2 
4 
7 
1 
7 
1 
7 
1 
7 
1 
7 
1 
2 
4 
7 
1 
2 

T 
f 

1 

2 
4 
7 
5 
4 
7 
1 
2 
7 
1 
5 
5 
5 
5 
8 
4 
7 



0333 
0335 
0339 
0340 
0347 
0348 
0350 
0357 
0364 
0365 
0367 
0371 
0378 
0379 
0386 
0387 
0394 
0395 
0402 
0403 
0410 
0411 
0413 
0417 
0424 
0425 

\Jtc r 

0434 
0435 
0437 
0441 
0448 
0453 
0457 
0464 
0465 
0467 
0474 
0475 
0480 
0485 
0490 
0495 
0503 
0507 



0333 



F 1 
/ 332 
/ 

M 696 

2 

F K 

M 730 

M 746 

2 

F J 

/ 271 

M 770 

2 

M 794 

2 

M 818 

2 

M 842 

2 

M 866 



F J 
/ 224 
M 881 
2 

F K 
M 920 
2 

F 1 
) P06 
. 000 
B 530 
/ 239 
M 930 
2 

F K 
M 966 
2 

U (Ul 
U (U4 
U (U5 
U (U6 
517 
236 



215 



234 
251 



224 
224 
224 
224 
224 

215 



880 
F 

210 



236 

R 
R 
R 
R 
P25 1 



V 
/ 
M 994 228 



95 

95 

95 

95 

95 

95 

95 

96 

96 

96 

96 

96 

96 

96 

97 

97 

97 

97 

97 

97 

97 

98 

98 

98 

98 

98 

98 

98 

99 

99 

99 

99 

99 

99 

99 

100 

100 

100 

100 

100 

100 

100 

101 

101 

101 
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SEQ PG LIN LABEL OP 



OPERANDS 



SFX CT LOCN INSTRUCTION TYPE CARD 



740 7 14 

741 7 15 

742 7 16 

743 7 17 

744 7 18 

745 7 19 

746 7 20 

747 7 21 

748 7 22 

749 7 23 

750 7 24 

751 7 25 

752 7 26 

753 7 27 

754 7 28 

755 7 29 

756 7 30 

757 7 31 

758 7 32 

759 7 33 

760 7 34 

761 7 35 

762 7 36 

763 7 37 

764 7 38 

765 7 39 

766 7 40 

767 7 41 

768 7 42 

769 7 43 

770 7 44 

fIX I **D 

772 7 46 

698 
701 
702 
706 
708 
710 
712 
714 
718 
721 
728 
731 
739 

759 

773 7 47 



FINAL 



GOTOE 



TPERR2 
RETRY 

AGAIN 



CC 

W 

CC 

H 

B 

CW 

cw 
cs 

8SP 

BSP 

8SP 

BSP 

BSP 

BSP 

BSP 

BSP 

RTW 

BER 

B 

MCW 

BSP 

RTW 

BER 

B 

BSP 

S 

BWZ 

H 

RTW 

BSS 

H 

D 

LTORG 
DCW 



REAOC 
ENDF3 



OCW 



K 



XXXX,889 

FINAL+2 

ENDF2tEN0F3 

INPUT+80 

PUNCH+99 

1 

1 

1 

1 

1 

1 

1 

1 

1, PASSE 

TPERR2 

PASSE+1 

+9,READC=1 

1 

It PASSE 

AGAIN 

PASSE+1 

1 

+1, REAOC 

RETRY, REACCB 

XXXX,891 

l.PASSE 

TPERR2,E 

XXXX»812 

r«oScx jt. 

* 

•END OF ASSEMBLY' 

•IF EXTRA OUTPUT DESIRED, SET SENSE* 

•SWITCH F ON, AND" 

•B ON FOR CONDENSED CARDS' 

•C ON FOR LOADABLE TAPE 6» 

•D ON FOR LISTING TAPE 3* 

•E ON TO SUPPRESS LISTING* 

•G ON FOR NEW SOURCE DECK' 

•AND PRESS START* 

•IF NO EXTRA OUTPUT DESIRED, PRESS START* 

•END OF JCB* 

•INPUT FOR RE-ASSEMBLY ON TAPE UNIT 4* 

•LOADABLE TAPE ON TAPE UNIT 6* 

+9 

=01 

+ 1 
i i 



2 


0514 


F 


K 






101 


1 


0516 


2 








101 


2 


0517 


F 


1 






101 


7 


0519 


• 


000 


889 




101 


4 


0526 


B 


519 






102 


7 


0530 


) 


198 


998 




102 


4 


0537 


) 


A08 






102 


4 


0541 


/ 


199 






102 


5 


0545 


U 


<U1 


B 




102 


5 


0550 


U 


<U1 


B 




102 


5 


0555 


u 


CU1 


B 




102 


5 


0560 


u 


(Ul 


B 




103 


5 


0565 


u 


<U1 


B 




103 


5 


0570 


u 


IU1 


B 




103 


5 


0575 


u 


<U1 


B 




103 


5 


0580 


u 


<U1 


B 




103 


8 


0585 


L 


tui 


200 


R 


103 


5 


0593 


B 


602 


L 




103 


4 


0598 


B 


201 






104 


7 


0602 


M 


995 


996 




104 


5 


0609 


U 


(Ul 


B 




104 


8 


0614 


L 


(Ul 


ZOO 


R 


104 


5 


0622 


B 


631 


L 




104 


4 


0627 


B 


Z01 






104 


5 


0631 


U 


CU1 


B 




104 


7 


0636 


S 


997 


996 




105 


8 


0643 


V 


614 


996 


B 


105 


7 


0651 


• 


000 


891 




105 


8 


0658 


L 


iUl 


200 


R 


105 


5 


0666 


B 


602 


E 




105 


7 


0671 


• 


000 


812 




106 


TT 


WW I « 


D 


J.W1 






A. V W 






0682 








15 


0696 








LIT 


106 


34 


0730 








LIT 


107 


16 
24 


0746 
0770 








LIT 

LIT 


108 
109 


24 


0794 








LIT 


110 


24 


0818 








LIT 


111 


24 


0842 








LIT 


112 


24 


0866 








LIT 


113 


15 


0881 








LIT 


113 


39 


0920 








LIT 


114 


10 


0930 








LIT 


115 


36 


0966 








LIT 


116 


28 


0994 








LIT 


117 


1 


0995 








LIT 


117 


1 


0996 








AREA 


117 


1 


0997 








LIT 


117 


1 


0998 










117 



1401 AUTOCOCER-PASS 8 EXTRA OUTPUT OVERLAY-VERSION 3 



3783L 



PAGE 18 



SEQ PG LIN LABEL OP OPERANDS 

774 7 48 PASSE EQU 1900 

775 7 49 EX LIBRN 

776 7 50 ENO LI8RN 



SEX CT LOCN INSTRUCTION TYPE CARD 
1900 



8 000 

/ 000 080 



118 
121 



A VT0 C0DER 
A SSEH5L BK 



